paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 21:28:03 +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,
tgobj,ncgutil,
cgutils,cgobj,
ncgbas;
ncgbas,ncgflw;
{*****************************************************************************
SecondLoad
@ -365,14 +365,10 @@ implementation
end;
end;
typedconstsym :
begin
location.reference.symbol:=objectlibrary.newasmsymbol(ttypedconstsym(symtableentry).mangledname,AB_EXTERNAL,AT_DATA);
end;
location.reference.symbol:=objectlibrary.newasmsymbol(ttypedconstsym(symtableentry).mangledname,AB_EXTERNAL,AT_DATA);
labelsym :
begin
location.reference.symbol:=objectlibrary.newasmsymbol(tlabelsym(symtableentry).mangledname,AB_EXTERNAL,AT_FUNCTION);
end;
else internalerror(4);
location.reference.symbol:=tcglabelnode((tlabelsym(symtableentry).code)).getasmlabel;
else internalerror(200510032);
end;
end;