소스 검색

+ write a debug output message and trap in FPC_LONGJMP for WebAssembly

git-svn-id: branches/wasm@48443 -
nickysn 4 년 전
부모
커밋
2c2f2189e3
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      rtl/wasm32/setjump.inc

+ 2 - 0
rtl/wasm32/setjump.inc

@@ -22,4 +22,6 @@ 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;
   begin
+    DebugWriteLn('LONGJMP not supported in WebAssembly!!!');
+    fpc_wasm32_unreachable;
   end;