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

+ support 16-bit pointers (i8086 near pointers) in defutil.def_cgsize

Browse Source 
git-svn-id: branches/i8086@23816 -
This commit is contained in:
nickysn 2013-03-13 17:19:21 +00:00
parent 6efe01eb3f
commit f048e3fd3b
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/defutil.pas
View File

@ -1042,13 +1042,15 @@ implementation
procvardef:
begin
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
{$else} {$if sizeof(pint) = 8}
{$elseif sizeof(pint) = 8}
result:=OS_128
{$else}
internalerror(200707141)
{$endif} {$endif}
{$endif}
else
result:=OS_ADDR;
end;