diff test/call_suite/cases.c @ 0:3e629dc19168

initial from svn dyncall-1745
author Daniel Adler
date Thu, 19 Mar 2015 22:24:28 +0100
parents
children f5577f6bf97a
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/call_suite/cases.c	Thu Mar 19 22:24:28 2015 +0100
@@ -0,0 +1,52 @@
+/*
+
+ Package: dyncall
+ Library: test
+ File: test/call_suite/cases.c
+ Description: 
+ License:
+
+   Copyright (c) 2011-2015 Daniel Adler <dadler@uni-goettingen.de>,
+                           Tassilo Philipp <tphilipp@potion-studios.com>
+
+   Permission to use, copy, modify, and distribute this software for any
+   purpose with or without fee is hereby granted, provided that the above
+   copyright notice and this permission notice appear in all copies.
+
+   THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+   WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+   MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+   ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+   WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+   ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+   OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+
+*/
+
+#include "globals.h"
+
+#define ret_v(X) 
+#define ret_c(X) return(K_c[X]);
+#define ret_s(X) return(K_s[X]);
+#define ret_i(X) return(K_i[X]);
+#define ret_j(X) return(K_j[X]);
+#define ret_l(X) return(K_l[X]);
+#define ret_p(X) return(K_p[X]);
+#define ret_f(X) return(K_f[X]);
+#define ret_d(X) return(K_d[X]);
+extern int fid;
+
+#define v void
+#define c char
+#define s short
+#define i int
+#define j long
+#define l long long
+#define p void*
+#define f float
+#define d double
+
+#include "cases.h"
+
+int G_ncases = sizeof(G_sigtab)/sizeof(G_sigtab[0]);
+