Bläddra i källkod

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

Sven/Sarah Barth 2 dagar sedan
förälder
incheckning
706598dfcd
1 ändrade filer med 5 tillägg och 1 borttagningar
  1. 5 1
      compiler/symdef.pas

+ 5 - 1
compiler/symdef.pas

@@ -5809,7 +5809,11 @@ implementation
          begin
            hp:=tparavarsym(paras[i]);
            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;
         { add resultdef, add $$ as separator to make it unique from a
           parameter separator }