소스 검색

* twasmexceptionstatehandler_nativeexceptions.handle_nested_exception and
twasmexceptionstatehandler_bfexceptions.handle_nested_exception should not be
called, so now they cause an internal error

Nikolay Nikolov 4 년 전
부모
커밋
fab4ca449b
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      compiler/wasm32/cpupi.pas

+ 2 - 2
compiler/wasm32/cpupi.pas

@@ -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);