Selaa lähdekoodia

* fix IE after duplicate asm symbol

git-svn-id: trunk@5992 -
peter 18 vuotta sitten
vanhempi
commit
30e78b71c8
1 muutettua tiedostoa jossa 5 lisäystä ja 1 poistoa
  1. 5 1
      compiler/ogbase.pas

+ 5 - 1
compiler/ogbase.pas

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