paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 18:49:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* symbol count fix merged

Browse Source
This commit is contained in:
peter 2002-12-06 17:50:21 +00:00
parent 2183d2edde
commit 8a5d95d911
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/aasmtai.pas
View File

@ -198,7 +198,7 @@ interface
constructor ppuload(t:taitype;ppufile:tcompilerppufile);override; constructor ppuload(t:taitype;ppufile:tcompilerppufile);override;
procedure ppuwrite(ppufile:tcompilerppufile);override; procedure ppuwrite(ppufile:tcompilerppufile);override;
end; end;
taiclass = class of tai; taiclass = class of tai;
@ -563,7 +563,8 @@ uses
procedure tai.checkredefinesym(sym:tasmsymbol); procedure tai.checkredefinesym(sym:tasmsymbol);
begin begin
{ if assigned(sym.taiowner) then { if assigned(sym.taiowner) and
(target_asm.id in binassem) then
begin begin
Message1(asmw_e_redefined_label,sym.name); Message1(asmw_e_redefined_label,sym.name);
end end
@ -1690,8 +1691,8 @@ uses
{ find the last file information record } { find the last file information record }
if not (tai(last).typ in SkipLineInfo) then if not (tai(last).typ in SkipLineInfo) then
getlasttaifilepos:=@tailineinfo(last).fileinfo getlasttaifilepos:=@tailineinfo(last).fileinfo
else else
{ go through list backwards to find the first entry { go through list backwards to find the first entry
with line information with line information
} }
begin begin
@ -1708,7 +1709,10 @@ uses
end. end.
{ {
$Log$ $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, * memory optimization (3-4%) : cleanup of tai fields,
cleanup of tdef and tsym fields. cleanup of tdef and tsym fields.
* make it work for m68k * make it work for m68k