Răsfoiți Sursa

* fix IE after duplicate asm symbol

git-svn-id: trunk@5992 -
peter 18 ani în urmă
părinte
comite
30e78b71c8
1 a modificat fișierele cu 5 adăugiri și 1 ștergeri
  1. 5 1
      compiler/ogbase.pas

+ 5 - 1
compiler/ogbase.pas

@@ -523,11 +523,15 @@ implementation
         else
         else
           begin
           begin
             if pass=apass then
             if pass=apass then
-              Message1(asmw_e_duplicate_label,name);
+              begin
+                Message1(asmw_e_duplicate_label,name);
+                exit;
+              end;
           end;
           end;
         pass:=apass;
         pass:=apass;
         { Code can never grow after a pass }
         { Code can never grow after a pass }
         if assigned(objsection) and
         if assigned(objsection) and
+           (objsection=aobjsec) and
            (aobjsec.size>offset) then
            (aobjsec.size>offset) then
           internalerror(200603014);
           internalerror(200603014);
         objsection:=aobjsec;
         objsection:=aobjsec;