Fix signatures of primitiveFailForFFIExceptionat in the platform exce…

…ption handlers.
OpenSmalltalk · Aug 25, 2018 · 73df2f7 · 73df2f7
1 parent de918b2
commit 73df2f7
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/platforms/iOS/vm/Common/Classes/sqSqueakMainApp.m b/platforms/iOS/vm/Common/Classes/sqSqueakMainApp.m
@@ -335,7 +335,7 @@ Some of this code was funded via a grant from the European Smalltalk User Group
 							: "Unknown signal"));
 
 	if (!inFault) {
-		extern sqInt primitiveFailForFFIExceptionat(sqLong exceptionCode, sqInt pc);
+		extern sqInt primitiveFailForFFIExceptionat(usqLong exceptionCode, usqInt pc);
 		primitiveFailForFFIExceptionat(sig, ((ucontext_t *)uap)->_PC_IN_UCONTEXT);
 		inFault = 1;
 		getCrashDumpFilenameInto(crashdump);

diff --git a/platforms/unix/vm/sqUnixMain.c b/platforms/unix/vm/sqUnixMain.c
@@ -1112,7 +1112,7 @@ sigsegv(int sig, siginfo_t *info, ucontext_t *uap)
 							: "Unknown signal"));
 
 	if (!inFault) {
-		extern sqInt primitiveFailForFFIExceptionat(sqLong exceptionCode, sqInt pc);
+		extern sqInt primitiveFailForFFIExceptionat(usqLong exceptionCode, usqInt pc);
 		primitiveFailForFFIExceptionat(sig, uap->_PC_IN_UCONTEXT);
 		inFault = 1;
 		getCrashDumpFilenameInto(crashdump);

diff --git a/platforms/win32/vm/sqWin32Main.c b/platforms/win32/vm/sqWin32Main.c
@@ -175,7 +175,7 @@ static LPTOP_LEVEL_EXCEPTION_FILTER TopLevelFilter = NULL;
 static LONG CALLBACK
 squeakExceptionHandler(LPEXCEPTION_POINTERS exp)
 {
-extern sqInt primitiveFailForFFIExceptionat(sqLong exceptionCode, sqInt pc);
+extern sqInt primitiveFailForFFIExceptionat(usqLong exceptionCode, usqInt pc);
   DWORD result;
 
   /* #1: Try to handle exception in the regular (memory access)