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

* twasmexceptionstatehandler_nativeexceptions.handle_nested_exception and

Browse Source 
twasmexceptionstatehandler_bfexceptions.handle_nested_exception should not be
  called, so now they cause an internal error
This commit is contained in:
Nikolay Nikolov 2021-10-05 07:54:57 +03:00
parent 04a41fa5b0
commit fab4ca449b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/wasm32/cpupi.pas
View File

@ -175,7 +175,7 @@ implementation
class procedure twasmexceptionstatehandler_nativeexceptions.handle_nested_exception(list:TAsmList;var t:texceptiontemps;var entrystate: texceptionstate);
begin
list.Concat(tai_comment.Create(strpnew('TODO: handle_nested_exception')));
internalerror(2021100503);
end;
class procedure twasmexceptionstatehandler_nativeexceptions.begin_catch(list: TAsmList; excepttype: tobjectdef; nextonlabel: tasmlabel; out exceptlocdef: tdef; out exceptlocreg: tregister);
@ -260,7 +260,7 @@ implementation
class procedure twasmexceptionstatehandler_bfexceptions.handle_nested_exception(list:TAsmList;var t:texceptiontemps;var entrystate: texceptionstate);
begin
list.Concat(tai_comment.Create(strpnew('TODO: handle_nested_exception')));
internalerror(2021100502);
end;
class procedure twasmexceptionstatehandler_bfexceptions.begin_catch(list: TAsmList; excepttype: tobjectdef; nextonlabel: tasmlabel; out exceptlocdef: tdef; out exceptlocreg: tregister);