paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:29:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't halt with an internal error, but add an asm comment instead, when a

Browse Source 
stack underflow is detected in thlcgwasm.decstack and when the compiler is
  compiled with the DEBUG_WASMSTACK define
This commit is contained in:
Nikolay Nikolov 2021-09-18 16:21:41 +03:00
parent 58e4692795
commit d4bd1f1e9b
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/wasm32/hlcgcpu.pas
View File

@ -334,7 +334,11 @@ implementation
dec(fevalstackheight,slots);
if (fevalstackheight<0) and
not(cs_no_regalloc in current_settings.globalswitches) then
{$ifdef DEBUG_WASMSTACK}
list.concat(tai_comment.Create(strpnew('!!! stack underflow')));
{$else DEBUG_WASMSTACK}
internalerror(2010120501);
{$endif DEBUG_WASMSTACK}
if cs_asm_regalloc in current_settings.globalswitches then
list.concat(tai_comment.Create(strpnew(' freed '+tostr(slots)+', stack height = '+tostr(fevalstackheight))));
end;