Browse Source

* fixed compilation of the embedded target

git-svn-id: branches/wasm@48462 -
nickysn 4 years ago
parent
commit
cfc9838349
1 changed files with 2 additions and 0 deletions
  1. 2 0
      rtl/wasm32/setjump.inc

+ 2 - 0
rtl/wasm32/setjump.inc

@@ -22,6 +22,8 @@ function fpc_setjmp(var S : jmp_buf) : longint;[Public, alias : 'FPC_SETJMP'];co
 
 
 procedure fpc_longjmp(var S : jmp_buf;value : longint);[Public, alias : 'FPC_LONGJMP'];compilerproc;
 procedure fpc_longjmp(var S : jmp_buf;value : longint);[Public, alias : 'FPC_LONGJMP'];compilerproc;
   begin
   begin
+{$ifndef embedded}
     DebugWriteLn('LONGJMP not supported in WebAssembly!!!');
     DebugWriteLn('LONGJMP not supported in WebAssembly!!!');
+{$endif embedded}
     fpc_wasm32_unreachable;
     fpc_wasm32_unreachable;
   end;
   end;