mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-19 03:13:40 +00:00
d465fa53cb
Discussion of these changes can be found on the Mercury developers
mailing list archives from June 2018.
COPYING.LIB:
Add a special linking exception to the LGPL.
*:
Update references to COPYING.LIB.
Clean up some minor errors that have accumulated in copyright
messages.
69 lines
1.3 KiB
C
69 lines
1.3 KiB
C
/*
|
|
** Copyright (C) 1993, 1997, 1999 The University of Melbourne.
|
|
** Copyright (C) 2018 The Mercury team.
|
|
** This file is distributed under the terms specified in COPYING.LIB.
|
|
*/
|
|
|
|
/*
|
|
** regtest2.c - part of the regtest.c program.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <math.h>
|
|
#include <assert.h>
|
|
|
|
extern FILE *f;
|
|
int global;
|
|
|
|
void extern_clobber_regs_in_func(void);
|
|
void extern_call_func_with_args(
|
|
int x1, int x2, int x3, int x4,
|
|
int y1, int y2, int y3, int y4,
|
|
double f1, double f2, double f3, double f4
|
|
);
|
|
|
|
void
|
|
extern_call_func_with_args(
|
|
int x1, int x2, int x3, int x4,
|
|
int y1, int y2, int y3, int y4,
|
|
double f1, double f2, double f3, double f4
|
|
) {
|
|
assert(
|
|
x1 == 1 &&
|
|
x2 == 2 &&
|
|
x3 == 3 &&
|
|
x4 == 4 &&
|
|
y1 == 5 &&
|
|
y2 == 6 &&
|
|
y3 == 7 &&
|
|
y4 == 8 &&
|
|
f1 == 10.0 &&
|
|
f2 == 20.0 &&
|
|
f3 == 30.0 &&
|
|
f4 == 40.0
|
|
);
|
|
}
|
|
|
|
/* Do a variety of stuff that might clobber the registers */
|
|
|
|
#define clobber_regs() \
|
|
do { \
|
|
double x = 1.5; \
|
|
int i = 35; \
|
|
\
|
|
fprintf(f, "Hello, world %d\n", i); \
|
|
x = sin(x + global); \
|
|
global = (int) x; \
|
|
x = pow(x,1.5); \
|
|
malloc(100); \
|
|
extern_call_func_with_args(1,2,3,4,5,6,7,8,10.0,20.0,30.0,40.0); \
|
|
system("/bin/true"); \
|
|
} while (0)
|
|
|
|
void
|
|
extern_clobber_regs_in_func(void) {
|
|
clobber_regs();
|
|
}
|
|
|