Oops! Delete platforms/win32/plugins/SqueakFFIPrims/sqWin32FFI.c whic…

…h provides

obsolete support. platforms/Cross/plugins/SqueakFFIPrims/sqFFIPlugin.c is very
much in use!
Undo the damage of e632352

platforms/Cross/plugins/SqueakFFIPrims/sqFFIPlugin.c

@@ -0,0 +1,72 @@
+/****************************************************************************
+*   PROJECT: Squeak threaded foreign function interface
+*   FILE:    sqFFIPlugin.c
+*   CONTENT: C support code for the threaded FFIPlugin
+*
+*   AUTHOR:  Eliot Miranda
+*
+*****************************************************************************/
+
+#include <stdio.h>
+#include <stdlib.h> /* proto for alloca in MINGW */
+#if !_WIN32 && !__FreeBSD__ && !__OpenBSD__
+# include <alloca.h>
+#endif
+#include <string.h>
+
+#ifdef _MSC_VER
+# include <windows.h>
+# define alloca _alloca
+#endif
+
+/* this is a stub through which floating-point register arguments can be loaded
+ * prior to an FFI call proper.  e.g. on the PowerPC this would be declared as
+ *	extern void loadFloatRegs(double, double, double, double,
+ *	                          double, double, double, double);
+ * and called with the appropriate values necessary to load the floating-point
+ * argument registers.  Immediately after the actual call is made, using the
+ * undisturbed register contents created by the call of loadFloatRegs.
+ */
+void
+loadFloatRegs(void) { return; }
+
+static FILE *ffiLogFile = NULL;
+
+int
+ffiLogFileNameOfLength(void *nameIndex, int nameLength)
+{
+	if (nameIndex && nameLength) {
+		char *fileName;
+		FILE *fp;
+
+		if (!(fileName = alloca(nameLength+1)))
+			return 0;
+		strncpy(fileName, nameIndex, nameLength);
+		fileName[nameLength] = 0;
+		/* attempt to open the file and if we can't, fail */
+		if (!(fp = fopen(fileName, "at")))
+			return 0;
+		/* close the old log file if needed and use the new one */
+		if (ffiLogFile)
+			fclose(ffiLogFile);
+		ffiLogFile = fp;
+		fprintf(ffiLogFile, "------- Log started -------\n");
+		fflush(fp);
+	}
+	else {
+		if (ffiLogFile)
+			fclose(ffiLogFile);
+		ffiLogFile = NULL;
+	}
+	return 1;
+}
+
+int
+ffiLogCallOfLength(void *nameIndex, int nameLength)
+{
+    if (!ffiLogFile)
+		return 0;
+    fprintf(ffiLogFile, "%.*s\n", nameLength, (char *)nameIndex);
+    fflush(ffiLogFile);
+	return 1;
+}

platforms/win32/plugins/SqueakFFIPrims/Makefile

@@ -7,7 +7,7 @@ WIN32DIR:=	$(PLATDIR)/win32/plugins/$(LIBNAME)
 
 %:
 	$(MAKE) -f ../../Makefile.plugin VPATH="$(CROSSDIR) $(MAKERDIR) $(WIN32DIR) $(OBJDIR)" \
-		CROSSSRC="sqFFITestFuncs.c sqManualSurface.c" \
+		CROSSSRC="sqFFIPlugin.c sqFFITestFuncs.c sqManualSurface.c" \
 		MAKERSRC="SqueakFFIPrims.c" \
 		WIN32SRC="" \
 		$@

platforms/win32/plugins/SqueakFFIPrims/Makefile.msvc

@@ -3,7 +3,7 @@
 # Copyright (c) 2020 3D Immersive Collaboration Consulting, LLC
 #############################################################################
 
-LIBSRC:=SqueakFFIPrims.c sqFFITestFuncs.c sqManualSurface.c
+LIBSRC:=SqueakFFIPrims.c sqFFIPlugin.c sqFFITestFuncs.c sqManualSurface.c
 
 include ../common/Makefile.msvc.plugin
 

platforms/win32/plugins/SqueakFFIPrims/Makefile.plugin

@@ -7,7 +7,7 @@ WIN32DIR:=	$(PLATDIR)/win32/plugins/$(LIBNAME)
 
 %:
 	$(MAKE) -f ../common/Makefile.plugin VPATH="$(CROSSDIR) $(MAKERDIR) $(WIN32DIR) $(OBJDIR)" \
-		CROSSSRC="sqFFITestFuncs.c sqManualSurface.c" \
+		CROSSSRC="sqFFIPlugin.c sqFFITestFuncs.c sqManualSurface.c" \
 		MAKERSRC="SqueakFFIPrims.c" \
 		WIN32SRC="" \
 		$@