paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 03:12:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* first ie of tb0468 fixed

Browse Source 
git-svn-id: trunk@1275 -
This commit is contained in:
florian 2005-10-03 20:41:25 +00:00
parent 77cc54351c
commit 7ac4a7c78d
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ncgld.pas
View File

@ -62,7 +62,7 @@ implementation
cpubase,parabase, cpubase,parabase,
tgobj,ncgutil, tgobj,ncgutil,
cgutils,cgobj, cgutils,cgobj,
ncgbas; ncgbas,ncgflw;
{***************************************************************************** {*****************************************************************************
SecondLoad SecondLoad
@ -365,14 +365,10 @@ implementation
end; end;
end; end;
typedconstsym : typedconstsym :
begin location.reference.symbol:=objectlibrary.newasmsymbol(ttypedconstsym(symtableentry).mangledname,AB_EXTERNAL,AT_DATA);
location.reference.symbol:=objectlibrary.newasmsymbol(ttypedconstsym(symtableentry).mangledname,AB_EXTERNAL,AT_DATA);
end;
labelsym : labelsym :
begin location.reference.symbol:=tcglabelnode((tlabelsym(symtableentry).code)).getasmlabel;
location.reference.symbol:=objectlibrary.newasmsymbol(tlabelsym(symtableentry).mangledname,AB_EXTERNAL,AT_FUNCTION); else internalerror(200510032);
end;
else internalerror(4);
end; end;
end; end;