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

* write correct s/uleb types

Browse Source 
git-svn-id: branches/debug_eh@42253 -
This commit is contained in:
florian 2019-06-20 15:30:07 +00:00
parent f1b66a9741
commit e4f821487d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/psabiehpi.pas
View File

@ -193,7 +193,7 @@ implementation
begin begin
{ if not first entry, signal that another action follows } { if not first entry, signal that another action follows }
if not(first) then if not(first) then
actionlist.concat(tai_const.Create_uleb128bit(1)); actionlist.concat(tai_const.Create_sleb128bit(1));
first:=false; first:=false;
{ catch all? } { catch all? }
@ -212,9 +212,9 @@ implementation
actionlist.concat(tai_comment.Create(strpnew('Cleanup'))); actionlist.concat(tai_comment.Create(strpnew('Cleanup')));
{$endif debug_eh} {$endif debug_eh}
if assigned(p) then if assigned(p) then
actionlist.concat(tai_const.Create_uleb128bit(index+1)) actionlist.concat(tai_const.Create_sleb128bit(index+1))
else else
actionlist.concat(tai_const.Create_uleb128bit(0)); actionlist.concat(tai_const.Create_sleb128bit(0));
Result:=index; Result:=index;
end; end;
@ -267,7 +267,7 @@ implementation
action.actionlist.concat(tai_const.Create_rel_sym(aitconst_sleb128bit,curpos,TPSABIEHAction(landingpadstack[landingpadstack.count-1]).actiontablelabel)); action.actionlist.concat(tai_const.Create_rel_sym(aitconst_sleb128bit,curpos,TPSABIEHAction(landingpadstack[landingpadstack.count-1]).actiontablelabel));
end end
else else
action.actionlist.concat(tai_const.Create_uleb128bit(0)); action.actionlist.concat(tai_const.Create_sleb128bit(0));
action_table_data.concatList(action.actionlist); action_table_data.concatList(action.actionlist);
actionstack.count:=actionstack.count-1; actionstack.count:=actionstack.count-1;
result:=actionstack.count=0; result:=actionstack.count=0;