Browse Source

* properly read asizeints from ppus on 16 bit targets

git-svn-id: branches/i8086@23939 -
florian 12 năm trước cách đây
mục cha
commit
bac18a0094
1 tập tin đã thay đổi với 5 bổ sung3 xóa
  1. 5 3
      compiler/ppu.pas

+ 5 - 3
compiler/ppu.pas

@@ -814,11 +814,13 @@ begin
       result:=0;
     end;
 {$else not generic_cpu}
-{$ifdef cpu64bitaddr}
+{$if defined(cpu64bitaddr)}
   result:=getint64;
-{$else cpu64bitaddr}
+{$elseif defined(cpu32bitaddr)}
   result:=getlongint;
-{$endif cpu32bitaddr}
+{$elseif defined(cpu16bitaddr)}
+  result:=getword;
+{$endif}
 {$endif not generic_cpu}
 end;