2
0
Эх сурвалжийг харах

* properly read asizeints from ppus on 16 bit targets

git-svn-id: branches/i8086@23939 -
florian 12 жил өмнө
parent
commit
bac18a0094

+ 5 - 3
compiler/ppu.pas

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