paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:29:28 +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;
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