Explorar el Código

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

git-svn-id: branches/i8086@23816 -
nickysn hace 12 años
padre
commit
f048e3fd3b
Se han modificado 1 ficheros con 5 adiciones y 3 borrados
  1. 5 3
      compiler/defutil.pas

+ 5 - 3
compiler/defutil.pas

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