paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 06:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* determine size of aword/aint/asizeint based on type size instead of based

Browse Source 
on defines

git-svn-id: branches/jvmbackend@18602 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:14:14 +00:00
parent c943d703fd
commit 6bc68a11d9
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/ppu.pas
View File

@ -789,11 +789,10 @@ begin
result:=0;
end;
{$else not generic_cpu}
{$ifdef cpu64bitalu}
result:=getint64;
{$else cpu64bitalu}
result:=getlongint;
{$endif cpu64bitalu}
if sizeof(aint)=8 then
result:=getint64
else
result:=getlongint;
{$endif not generic_cpu}
end;
@ -813,11 +812,10 @@ begin
result:=0;
end;
{$else not generic_cpu}
{$ifdef cpu64bitaddr}
result:=getint64;
{$else cpu64bitaddr}
result:=getlongint;
{$endif cpu32bitaddr}
if sizeof(asizeint)=8 then
result:=getint64
else
result:=getlongint;
{$endif not generic_cpu}
end;
@ -839,11 +837,10 @@ begin
result:=0;
end;
{$else not generic_cpu}
{$ifdef cpu64bitalu}
result:=getqword;
{$else cpu64bitalu}
result:=getdword;
{$endif cpu64bitalu}
if sizeof(aword)=8 then
result:=getqword
else
result:=getdword;
{$endif not generic_cpu}
end;