|
@@ -1042,13 +1042,15 @@ implementation
|
|
procvardef:
|
|
procvardef:
|
|
begin
|
|
begin
|
|
if not tprocvardef(def).is_addressonly then
|
|
if not tprocvardef(def).is_addressonly then
|
|
- {$if sizeof(pint) = 4}
|
|
|
|
|
|
+ {$if sizeof(pint) = 2}
|
|
|
|
+ result:=OS_32
|
|
|
|
+ {$elseif sizeof(pint) = 4}
|
|
result:=OS_64
|
|
result:=OS_64
|
|
- {$else} {$if sizeof(pint) = 8}
|
|
|
|
|
|
+ {$elseif sizeof(pint) = 8}
|
|
result:=OS_128
|
|
result:=OS_128
|
|
{$else}
|
|
{$else}
|
|
internalerror(200707141)
|
|
internalerror(200707141)
|
|
- {$endif} {$endif}
|
|
|
|
|
|
+ {$endif}
|
|
else
|
|
else
|
|
result:=OS_ADDR;
|
|
result:=OS_ADDR;
|
|
end;
|
|
end;
|