paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 16:49:42 +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

8
compiler/psabiehpi.pas
View File

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