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

* generate an internalerror if there are values remaining on top of stack

Browse Source 
at the end of a procedure. If the compiler is compiled with
  DEBUG_WASMSTACK, the previous asm comment message is emitted instead of
  internal error.
This commit is contained in:
Nikolay Nikolov 2021-09-18 18:10:57 +03:00
parent 324382d3a5
commit d3ec8f0d29
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

@ -2048,7 +2048,11 @@ implementation
list.concat(taicpu.op_none(a_end_block)); list.concat(taicpu.op_none(a_end_block));
decblock; decblock;
if fevalstackheight<>0 then if fevalstackheight<>0 then
{$ifdef DEBUG_WASMSTACK}
list.concat(tai_comment.Create(strpnew('!!! values remaining on stack at end of block !!!'))); list.concat(tai_comment.Create(strpnew('!!! values remaining on stack at end of block !!!')));
{$else DEBUG_WASMSTACK}
internalerror(2021091801);
{$endif DEBUG_WASMSTACK}
inherited; inherited;
end; end;