Преглед изворни кода

* fix IE after duplicate asm symbol

git-svn-id: trunk@5992 -
peter пре 18 година
родитељ
комит
30e78b71c8
1 измењених фајлова са 5 додато и 1 уклоњено
  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;