diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2016-06-24 15:07:00 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2016-06-24 15:07:00 +0200 |
commit | 096a6e38665392d1de16a3059d73ed77e32045a5 (patch) | |
tree | 57258ac54c6a3a55a710303e7f1a77a532ad75e9 /test/regression/krfun.c | |
parent | 9b31f673da13a4f4d04d937ac2b9e934c9b8291d (diff) | |
download | compcert-096a6e38665392d1de16a3059d73ed77e32045a5.tar.gz compcert-096a6e38665392d1de16a3059d73ed77e32045a5.zip |
Revised handling of old-style, K&R function definitions
This commits handles the case where the argument is passed with a type different from the actual type of the argument, as in
float f (x) float x; { return x; }
"x" is passed with type "double", and must be converted to "float" at the beginning of the function.
Diffstat (limited to 'test/regression/krfun.c')
-rw-r--r-- | test/regression/krfun.c | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/test/regression/krfun.c b/test/regression/krfun.c new file mode 100644 index 00000000..e34098b5 --- /dev/null +++ b/test/regression/krfun.c @@ -0,0 +1,37 @@ +/* Old-style, K&R function definitions */ + +#include <stdio.h> + +void f(a, b, c) + int c, a; + char * b; +{ + printf("f(%d, \"%s\", %d)\n", a, b, c); +} + +void g(a, b, c, d, e, x) + const unsigned char a; + char b[64]; + float c; + double d; + volatile int e; + long long x; +{ + printf("g(%d, \"%s\", %a, %a, %d, %lld)\n", a, b, c, d, e, x); +} + +void h(a, b, c) + char * b; +{ + printf("h(%d, \"%s\", %d)\n", a, b, c); +} + + +int main() +{ + f(1, "Hello", 2); + g(257, "World", 3.141592654, 3.141592654, -34, 12345678901234567LL); + h(6, "warning!", 7); + return 0; +} + |