소스 검색

* when generating the mangled parameter names, if the vardef is not defined then trigger an internal error

Sven/Sarah Barth 3 주 전
부모
커밋
706598dfcd
1개의 변경된 파일5개의 추가작업 그리고 1개의 파일을 삭제
  1. 5 1
      compiler/symdef.pas

+ 5 - 1
compiler/symdef.pas

@@ -5809,7 +5809,11 @@ implementation
          begin
          begin
            hp:=tparavarsym(paras[i]);
            hp:=tparavarsym(paras[i]);
            if not(vo_is_hidden_para in hp.varoptions) then
            if not(vo_is_hidden_para in hp.varoptions) then
-             result:=result+'$'+hp.vardef.mangledparaname;
+             begin
+               if not assigned(hp.vardef) then
+                 internalerror(2025122401);
+               result:=result+'$'+hp.vardef.mangledparaname;
+             end;
          end;
          end;
         { add resultdef, add $$ as separator to make it unique from a
         { add resultdef, add $$ as separator to make it unique from a
           parameter separator }
           parameter separator }