aboutsummaryrefslogtreecommitdiffstats
path: root/test/monniaux/varargs
diff options
context:
space:
mode:
authorDavid Monniaux <david.monniaux@univ-grenoble-alpes.fr>2019-03-08 17:06:15 +0100
committerDavid Monniaux <david.monniaux@univ-grenoble-alpes.fr>2019-03-08 17:06:15 +0100
commit3b75bfae25bbe41c1bc9d7723e7c34c94ae3bebf (patch)
tree4b982e31064d2135d3055abcb171443c8cfb8a5a /test/monniaux/varargs
parent4a3a66fca16b2094ff9c3f27fcaf0a70983663c3 (diff)
downloadcompcert-kvx-3b75bfae25bbe41c1bc9d7723e7c34c94ae3bebf.tar.gz
compcert-kvx-3b75bfae25bbe41c1bc9d7723e7c34c94ae3bebf.zip
un example avec varargs flottants
Diffstat (limited to 'test/monniaux/varargs')
-rw-r--r--test/monniaux/varargs/varargs.c34
1 files changed, 34 insertions, 0 deletions
diff --git a/test/monniaux/varargs/varargs.c b/test/monniaux/varargs/varargs.c
new file mode 100644
index 00000000..7aa95799
--- /dev/null
+++ b/test/monniaux/varargs/varargs.c
@@ -0,0 +1,34 @@
+#include <stdio.h>
+#include <stdarg.h>
+
+void simple_printf(const char* fmt, ...)
+{
+ va_list args;
+ va_start(args, fmt);
+
+ while (*fmt != '\0') {
+ if (*fmt == 'd') {
+ int i = va_arg(args, int);
+ printf("%d\n", i);
+ } else if (*fmt == 'c') {
+ // A 'char' variable will be promoted to 'int'
+ // A character literal in C is already 'int' by itself
+ int c = va_arg(args, int);
+ printf("%c\n", c);
+ } else if (*fmt == 'f') {
+ double d = va_arg(args, double);
+ printf("%f\n", d);
+ } else if (*fmt == 'l') {
+ long d = va_arg(args, long);
+ printf("%ld\n", d);
+ }
+ ++fmt;
+ }
+
+ va_end(args);
+}
+
+int main(void)
+{
+ simple_printf("dlcff", 3, 4L, 'a', 1.999, 42.5);
+}