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

* cpu64bitaddr -> cpu64bitalu check to determine whether we need special

Browse Source 
handling for 64 add-nodes
  * call the generic ordinal handler for 64 add nodes on the JVM

git-svn-id: branches/jvmbackend@18518 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:06:35 +00:00
parent bd69e52451
commit 3e5b70d80d
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/jvm/njvmadd.pas
View File

@ -48,6 +48,7 @@ interface
procedure second_cmpboolean;override; procedure second_cmpboolean;override;
procedure second_cmpsmallset;override; procedure second_cmpsmallset;override;
procedure second_cmp64bit;override; procedure second_cmp64bit;override;
procedure second_add64bit; override;
procedure second_cmpordinal;override; procedure second_cmpordinal;override;
end; end;
@ -348,6 +349,12 @@ interface
end; end;
procedure tjvmaddnode.second_add64bit;
begin
second_opordinal;
end;
procedure tjvmaddnode.second_cmpordinal; procedure tjvmaddnode.second_cmpordinal;
begin begin
second_generic_compare; second_generic_compare;

4
compiler/nadd.pas
View File

@ -2597,7 +2597,7 @@ implementation
internalerror(200103291); internalerror(200103291);
expectloc:=LOC_FLAGS; expectloc:=LOC_FLAGS;
end end
{$ifndef cpu64bitaddr} {$ifndef cpu64bitalu}
{ is there a 64 bit type ? } { is there a 64 bit type ? }
else if (torddef(ld).ordtype in [s64bit,u64bit,scurrency]) then else if (torddef(ld).ordtype in [s64bit,u64bit,scurrency]) then
begin begin
@ -2609,7 +2609,7 @@ implementation
else else
expectloc:=LOC_JUMP; expectloc:=LOC_JUMP;
end end
{$endif cpu64bitaddr} {$endif cpu64bitalu}
{$ifndef cpuneedsmulhelper} {$ifndef cpuneedsmulhelper}
{ is there a cardinal? } { is there a cardinal? }
else if (torddef(ld).ordtype=u32bit) then else if (torddef(ld).ordtype=u32bit) then