|
@@ -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
|