paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 05:08:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fill exceptstate variables and update flowcontrol in

Browse Source 
twasmexceptionstatehandler_nativeexceptions.new_exception
- removed the TODO comment, generated in the asm output by
  twasmexceptionstatehandler_nativeexceptions.free_exception
This commit is contained in:
Nikolay Nikolov 2021-09-28 00:19:13 +03:00
parent 15b2f9a7b1
commit ec0bdfbdd9
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/wasm32/cpupi.pas
View File

@ -151,12 +151,15 @@ implementation
class procedure twasmexceptionstatehandler_nativeexceptions.new_exception(list:TAsmList;const t:texceptiontemps; const exceptframekind: texceptframekind; out exceptstate: texceptionstate);
begin
list.Concat(tai_comment.Create(strpnew('TODO: new_exception')));
exceptstate.exceptionlabel:=nil;
exceptstate.oldflowcontrol:=flowcontrol;
exceptstate.finallycodelabel:=nil;
flowcontrol:=[fc_inflowcontrol,fc_catching_exceptions];
end;
class procedure twasmexceptionstatehandler_nativeexceptions.free_exception(list: TAsmList; const t: texceptiontemps; const s: texceptionstate; a: aint; endexceptlabel: tasmlabel; onlyfree:boolean);
begin
list.Concat(tai_comment.Create(strpnew('TODO: free_exception')));
end;
class procedure twasmexceptionstatehandler_nativeexceptions.handle_nested_exception(list:TAsmList;var t:texceptiontemps;var entrystate: texceptionstate);