borland fix
authorClaus Gittinger <cg@exept.de>
Sat, 13 Apr 2019 17:50:11 +0200
changeset 24072 f859c1090bd6
parent 24071 d9537fdc5b9f
child 24073 f9d517f57178
borland fix
ExternalFunctionCallback.st
--- a/ExternalFunctionCallback.st	Sat Apr 13 07:00:33 2019 +0200
+++ b/ExternalFunctionCallback.st	Sat Apr 13 17:50:11 2019 +0200
@@ -141,13 +141,12 @@
 
 	} else if (argType == __get_ffi_type_sint32()) {
 	    st_arg = __MKINT( *(int *)(args[i]) );
-
+#ifndef __BORLANDC__
 	} else if (argType == __get_ffi_type_uint64()) {
-	    st_arg = __MKUINT( *(unsigned long long *)(args[i]) );
-
+	    st_arg = __MKUINT( *(uint64 unsigned long long *)(args[i]) );
 	} else if (argType == __get_ffi_type_sint64()) {
 	    st_arg = __MKINT( *(long long *)(args[i]) );
-
+#endif
 	} else if (argType == __get_ffi_type_float()) {
 	    st_arg = __MKSFLOAT( *(float *)(args[i]) );