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

* fixed result node of fpc_eh_return_data_regno (r40070), resolves compiler

Browse Source 
crashes (and invalid results) when using this intrinsic

git-svn-id: branches/debug_eh@40074 -
This commit is contained in:
Jonas Maebe 2018-10-28 19:54:07 +00:00
parent 4bc0e49878
commit 84de128194
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ninl.pas
View File

@ -2300,7 +2300,7 @@ implementation
vl:=eh_return_data_regno(vl.svalue); vl:=eh_return_data_regno(vl.svalue);
if vl=-1 then if vl=-1 then
CGMessagePos(left.fileinfo,type_e_range_check_error_bounds); CGMessagePos(left.fileinfo,type_e_range_check_error_bounds);
result:=genintconstnode(vl); hp:=genintconstnode(vl);
end; end;
else else
internalerror(88); internalerror(88);