*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 12 Apr 2019 10:59:11 +0200
changeset 24065 3e8a516887d8
parent 24064 9f4295bdff8e
child 24066 5869861d9c86
*** empty log message ***
ExternalLibraryFunction.st
--- a/ExternalLibraryFunction.st	Fri Apr 12 10:42:55 2019 +0200
+++ b/ExternalLibraryFunction.st	Fri Apr 12 10:59:11 2019 +0200
@@ -2116,6 +2116,7 @@
 		}
 		goto commonPointerTypeArg; /* sorry */
 	    } else {
+#ifdef HAVE_FFI
 		if (__isArray(typeSymbol)) {
 		    // struct
 		    int numFields = __arraySize(typeSymbol);
@@ -2165,6 +2166,10 @@
 		    } else {
 			__FAIL__(@symbol(InvalidArgument))
 		    }
+		} else
+#endif
+		{
+		    __FAIL__(@symbol(InvalidArgument))
 		}
 	    }
 	}