Browse Source

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

git-svn-id: branches/i8086@23816 -
nickysn 12 years ago
parent
commit
f048e3fd3b
1 changed files with 5 additions and 3 deletions
  1. 5 3
      compiler/defutil.pas

+ 5 - 3
compiler/defutil.pas

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