paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 18:51:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't internalerror in decstack() if the evaluation stack becomes corrupted

Browse Source 
in case -sr is used (-sr code cannot be compiled, and is only used for
    debugging; with -alr, the stack slot information is printed in the
    assembler file)

git-svn-id: branches/jvmbackend@18410 -
This commit is contained in:
Jonas Maebe 2011-08-20 07:57:22 +00:00
parent 2a64e411ce
commit bf0b8503c9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/jvm/hlcgcpu.pas
View File

@ -221,7 +221,8 @@ implementation
if slots=0 then if slots=0 then
exit; exit;
dec(fevalstackheight,slots); dec(fevalstackheight,slots);
if (fevalstackheight<0) then if (fevalstackheight<0) and
not(cs_no_regalloc in current_settings.globalswitches) then
internalerror(2010120501); internalerror(2010120501);
if cs_asm_regalloc in current_settings.globalswitches then if cs_asm_regalloc in current_settings.globalswitches then
list.concat(tai_comment.Create(strpnew(' freed '+tostr(slots)+', stack height = '+tostr(fevalstackheight)))); list.concat(tai_comment.Create(strpnew(' freed '+tostr(slots)+', stack height = '+tostr(fevalstackheight))));