Fixed for msvc x86 builds

Author: TheRealMichaelWang

src/ffi.c

@@ -63,7 +63,7 @@ int dynamic_library_load(dynamic_library_table_t* dynamic_library, machine_t* ma
 	static wchar_t libid_buf[100];
 	mbstowcs(libid_buf, name, 100);
 	ESCAPE_ON_FAIL(new_lib->handle = LoadLibrary(libid_buf));
-	if (!(new_lib->entry_point = GetProcAddress(new_lib->handle, TEXT("superforth_entry")))) {
+	if (!(new_lib->entry_point = (superforth_dll_entry)GetProcAddress(new_lib->handle, TEXT("superforth_entry")))) {
 		free(name);
 		FreeLibrary(new_lib->handle);
 		return 0;
@@ -76,7 +76,7 @@ int dynamic_library_load(dynamic_library_table_t* dynamic_library, machine_t* ma
 		return 0;
 	}
 #endif
-	ESCAPE_ON_FAIL(new_lib->entry_point(machine));
+	ESCAPE_ON_FAIL((*new_lib->entry_point)(machine));
 	dynamic_library->imported_lib_count++;
 	return 1;
 }

src/ffi.h

@@ -8,6 +8,7 @@
 typedef struct machine machine_t;
 typedef union machine_register machine_reg_t;
 typedef int (*foreign_func)(machine_t* machine, machine_reg_t* input, machine_reg_t* output);
+typedef int (*superforth_dll_entry)(machine_t* machine);
 
 typedef struct foreign_func_table {
     foreign_func* func_table;
@@ -22,7 +23,7 @@ int ffi_invoke(ffi_t* ffi_table, machine_t* machine, machine_reg_t* id_reg, mach
 
 typedef struct dynamic_library {
     char* name;
-    int(*entry_point)(machine_t* machine);
+    superforth_dll_entry entry_point;
     void* handle;
 } dynamic_library_t;