X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Fuffi-c-test.c;h=5fa6b412478e305cc05a9be9930cdd7b8621b669;hb=refs%2Ftags%2Fv1.6.1;hp=1e9ef0b691e29b1e968ef976fdd2102b82fe14fe;hpb=80ca106516b23083e732b6e3e21547e890ca97a9;p=uffi.git diff --git a/tests/uffi-c-test.c b/tests/uffi-c-test.c index 1e9ef0b..5fa6b41 100644 --- a/tests/uffi-c-test.c +++ b/tests/uffi-c-test.c @@ -1,6 +1,6 @@ /*************************************************************************** * FILE IDENTIFICATION - * + * * Name: c-test-fns.c * Purpose: Test functions in C for UFFI library * Programer: Kevin M. Rosenberg @@ -8,17 +8,13 @@ * * CVS Id: $Id$ * - * This file, part of UFFI, is Copyright (c) 2002 by Kevin M. Rosenberg + * This file, part of UFFI, is Copyright (c) 2002-2005 by Kevin M. Rosenberg * - * UFFI users are granted the rights to distribute and use this software - * as governed by the terms of the Lisp Lesser GNU Public License - * (http://opensource.franz.com/preamble.html), also known as the LLGPL. - * These variables are correct for GCC * you'll need to modify these for other compilers ***************************************************************************/ -#ifdef WIN32 +#if defined(WIN32)||defined(WIN64) #include BOOL WINAPI DllEntryPoint(HINSTANCE hinstdll, @@ -27,11 +23,11 @@ BOOL WINAPI DllEntryPoint(HINSTANCE hinstdll, { return 1; } - + #define DLLEXPORT __declspec(dllexport) #else -#define DLLEXPORT +#define DLLEXPORT #endif #include @@ -58,11 +54,11 @@ cs_count_upper (char* psz) if (psz) { while (*psz) { if (isupper (*psz)) - ++count; + ++count; ++psz; } return count; - } else + } else return -1; } @@ -89,7 +85,7 @@ cs_make_random (int size, char* buffer) buffer[i] = 'A' + (rand() % 26); } - + /* Test of input/output vector */ DLLEXPORT void @@ -100,7 +96,7 @@ half_double_vector (int size, double* vec) vec[i] /= 2.; } - + DLLEXPORT void * @@ -159,4 +155,4 @@ double fvar_struct_double () { return fvar_struct.d; } - +