Browse Source

* symbol count fix merged

peter 23 years ago
parent
commit
8a5d95d911
1 changed files with 9 additions and 5 deletions
  1. 9 5
      compiler/aasmtai.pas

+ 9 - 5
compiler/aasmtai.pas

@@ -198,7 +198,7 @@ interface
         constructor ppuload(t:taitype;ppufile:tcompilerppufile);override;
         procedure ppuwrite(ppufile:tcompilerppufile);override;
        end;
-    
+
 
        taiclass = class of tai;
 
@@ -563,7 +563,8 @@ uses
 
     procedure tai.checkredefinesym(sym:tasmsymbol);
       begin
-{        if assigned(sym.taiowner) then
+{        if assigned(sym.taiowner) and
+            (target_asm.id in binassem) then
          begin
            Message1(asmw_e_redefined_label,sym.name);
          end
@@ -1690,8 +1691,8 @@ uses
               { find the last file information record }
               if not (tai(last).typ in SkipLineInfo) then
                  getlasttaifilepos:=@tailineinfo(last).fileinfo
-              else 
-               { go through list backwards to find the first entry 
+              else
+               { go through list backwards to find the first entry
                  with line information
                }
                begin
@@ -1708,7 +1709,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.13  2002-11-17 16:31:55  carl
+  Revision 1.14  2002-12-06 17:50:21  peter
+    * symbol count fix merged
+
+  Revision 1.13  2002/11/17 16:31:55  carl
     * memory optimization (3-4%) : cleanup of tai fields,
        cleanup of tdef and tsym fields.
     * make it work for m68k