浏览代码

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

git-svn-id: branches/i8086@23816 -
nickysn 12 年之前
父节点
当前提交
f048e3fd3b
共有 1 个文件被更改,包括 5 次插入3 次删除
  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;