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

* the ifdef i8086 in taddrnode.pass_typecheck removed via using tabstractprocdef.address_type

Browse Source 
git-svn-id: trunk@27547 -
This commit is contained in:
nickysn 2014-04-12 14:49:54 +00:00
parent 37168c8625
commit 9f4dd78701
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nmem.pas
View File

@ -530,14 +530,7 @@ implementation
begin
if tabstractprocdef(left.resultdef).is_addressonly then
begin
{$ifdef i8086}
if po_far in tabstractprocdef(left.resultdef).procoptions then
result:=ctypeconvnode.create_internal(left,voidfarpointertype)
else
result:=ctypeconvnode.create_internal(left,voidnearpointertype);
{$else i8086}
result:=ctypeconvnode.create_internal(left,voidpointertype);
{$endif i8086}
result:=ctypeconvnode.create_internal(left,tabstractprocdef(left.resultdef).address_type);
include(result.flags,nf_load_procvar);
left:=nil;
end