paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 19:38:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved joinreg64 from cg64f32 to cgobj (joinreg128 is also declared

Browse Source 
there)

git-svn-id: trunk@27152 -
This commit is contained in:
Jonas Maebe 2014-03-16 11:24:36 +00:00
parent d8e228e82d
commit dab8754bb6
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/cg64f32.pas
View File

@ -92,8 +92,6 @@ unit cg64f32;
procedure g_rangecheck64(list: TAsmList; const l:tlocation;fromdef,todef: tdef); override;
end;
{# Creates a tregister64 record from 2 32 Bit registers. }
function joinreg64(reglo,reghi : tregister) : tregister64;
implementation
@ -107,13 +105,6 @@ unit cg64f32;
Helpers
****************************************************************************}
function joinreg64(reglo,reghi : tregister) : tregister64;
begin
result.reglo:=reglo;
result.reghi:=reghi;
end;
procedure swap64(var q : int64);
begin
q:=(int64(lo(q)) shl 32) or hi(q);

10
compiler/cgobj.pas
View File

@ -558,6 +558,9 @@ unit cgobj;
{ override to catch 64bit rangechecks }
procedure g_rangecheck64(list: TAsmList; const l:tlocation; fromdef,todef: tdef);virtual;abstract;
end;
{ Creates a tregister64 record from 2 32 Bit registers. }
function joinreg64(reglo,reghi : tregister) : tregister64;
{$endif cpu64bitalu}
var
@ -2503,6 +2506,13 @@ implementation
*****************************************************************************}
{$ifndef cpu64bitalu}
function joinreg64(reglo,reghi : tregister) : tregister64;
begin
result.reglo:=reglo;
result.reghi:=reghi;
end;
procedure tcg64.a_op64_const_reg_reg(list: TAsmList;op:TOpCG;size : tcgsize;value : int64; regsrc,regdst : tregister64);
begin
a_load64_reg_reg(list,regsrc,regdst);