paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 19:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tcgloadnode.pass_generate_code: rm the ifdef'd i8086 code from the handling of

Browse Source 
non-method procsyms by using def_cgsize(pd.address_type) to determine the
  address size

git-svn-id: trunk@27550 -
This commit is contained in:
nickysn 2014-04-12 16:26:51 +00:00
parent fc71081b74
commit 68ff3fb1e2
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncgld.pas
View File

@ -575,13 +575,9 @@ implementation
end
else
begin
{ def_cgsize does not work for procdef }
location.size:=OS_ADDR;
pd:=tprocdef(tprocsym(symtableentry).ProcdefList[0]);
{$ifdef i8086}
if po_far in pd.procoptions then
location.size:=OS_32;
{$endif i8086}
{ def_cgsize does not work for tprocdef, so we use pd.address_type }
location.size:=def_cgsize(pd.address_type);
if not(po_weakexternal in pd.procoptions) then
location.reference.symbol:=current_asmdata.RefAsmSymbol(procdef.mangledname)
else