* fixed compilation of the setjmp/longjmp dummy functions for WebAssembly

git-svn-id: branches/wasm@48242 -

rtl/wasm32/setjump.inc

@@ -14,13 +14,12 @@
 
  **********************************************************************}
 
-(*function fpc_setjmp(var S : jmp_buf) : shortint;{[Public, alias : 'FPC_SETJMP_'];}compilerproc;
+function fpc_setjmp(var S : jmp_buf) : longint;[Public, alias : 'FPC_SETJMP'];compilerproc;
   begin
+    fpc_setjmp:=0;
   end;
 
 
-procedure fpc_longjmp(var S : jmp_buf;value : shortint);{[Public, alias : 'FPC_LONGJMP_'];}compilerproc;
+procedure fpc_longjmp(var S : jmp_buf;value : longint);[Public, alias : 'FPC_LONGJMP'];compilerproc;
   begin
-  end;*)
-
-
+  end;

rtl/wasm32/setjumph.inc

@@ -19,5 +19,5 @@ type
    end;
    pjmp_buf = ^jmp_buf;
 
-function setjmp(var S : jmp_buf) : shortint;{[external name 'FPC_SETJMP'];}
-procedure longjmp(var S : jmp_buf;value : shortint);{[external name 'FPC_LONGJMP'];}
+function setjmp(var S : jmp_buf) : longint;[external name 'FPC_SETJMP'];
+procedure longjmp(var S : jmp_buf;value : longint);[external name 'FPC_LONGJMP'];