# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1555170611 -7200
# Node ID f859c1090bd68d8704325a6a8b223a2e0ebaed83
# Parent  d9537fdc5b9ffb3a15e342f089e1f174dc0a0a02
borland fix

diff -r d9537fdc5b9f -r f859c1090bd6 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]) );