From 2c2f2189e3895a3c54191ce09e96dc86351efd26 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Thu, 28 Jan 2021 13:02:26 +0000
Subject: [PATCH] + write a debug output message and trap in FPC_LONGJMP for
 WebAssembly

git-svn-id: branches/wasm@48443 -
---
 rtl/wasm32/setjump.inc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/rtl/wasm32/setjump.inc b/rtl/wasm32/setjump.inc
index 21026009ed..4badc8a477 100644
--- a/rtl/wasm32/setjump.inc
+++ b/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;