Jelajahi Sumber

* fix IE after duplicate asm symbol

git-svn-id: trunk@5992 -
peter 18 tahun lalu
induk
melakukan
30e78b71c8
1 mengubah file dengan 5 tambahan dan 1 penghapusan
  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;