r7061: initial property settings

[uffi.git] / tests / uffi-c-test-lib.c

diff --git a/tests/uffi-c-test-lib.c b/tests/uffi-c-test-lib.c
index 99b9004f956342444965ddcd865194f1dae86db0..ee1ab3a3f6fd6ddd542c3b65a823223285dc2a54 100644 (file)
--- a/tests/uffi-c-test-lib.c
+++ b/tests/uffi-c-test-lib.c
@@ -6,7 +6,7 @@
  *  Programer:    Kevin M. Rosenberg
  *  Date Started: Mar 2002
  *
- *  CVS Id:   $Id: uffi-c-test-lib.c,v 1.3 2003/08/14 21:40:13 kevin Exp $
+ *  CVS Id:   $Id$
  *
  * This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg
  *
@@ -118,3 +118,24 @@ cast_test_float ()
   *y = 3.21;
   return y;
 }
+
+DLLEXPORT int fvar_addend = 3;
+
+typedef struct {
+  int i;
+  double d;
+} fvar_struct_type;
+
+fvar_struct_type fvar_struct = {42, 3.2};
+
+DLLEXPORT
+int fvar_struct_int () {
+  return (fvar_addend + fvar_struct.i);
+}
+
+DLLEXPORT
+double fvar_struct_double () {
+  return fvar_struct.d;
+}
+
+