mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 16:29:21 +02:00
* moved joinreg64 from cg64f32 to cgobj (joinreg128 is also declared
there) git-svn-id: trunk@27152 -
This commit is contained in:
parent
d8e228e82d
commit
dab8754bb6
@ -92,8 +92,6 @@ unit cg64f32;
|
|||||||
procedure g_rangecheck64(list: TAsmList; const l:tlocation;fromdef,todef: tdef); override;
|
procedure g_rangecheck64(list: TAsmList; const l:tlocation;fromdef,todef: tdef); override;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{# Creates a tregister64 record from 2 32 Bit registers. }
|
|
||||||
function joinreg64(reglo,reghi : tregister) : tregister64;
|
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
@ -107,13 +105,6 @@ unit cg64f32;
|
|||||||
Helpers
|
Helpers
|
||||||
****************************************************************************}
|
****************************************************************************}
|
||||||
|
|
||||||
function joinreg64(reglo,reghi : tregister) : tregister64;
|
|
||||||
begin
|
|
||||||
result.reglo:=reglo;
|
|
||||||
result.reghi:=reghi;
|
|
||||||
end;
|
|
||||||
|
|
||||||
|
|
||||||
procedure swap64(var q : int64);
|
procedure swap64(var q : int64);
|
||||||
begin
|
begin
|
||||||
q:=(int64(lo(q)) shl 32) or hi(q);
|
q:=(int64(lo(q)) shl 32) or hi(q);
|
||||||
|
@ -558,6 +558,9 @@ unit cgobj;
|
|||||||
{ override to catch 64bit rangechecks }
|
{ override to catch 64bit rangechecks }
|
||||||
procedure g_rangecheck64(list: TAsmList; const l:tlocation; fromdef,todef: tdef);virtual;abstract;
|
procedure g_rangecheck64(list: TAsmList; const l:tlocation; fromdef,todef: tdef);virtual;abstract;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ Creates a tregister64 record from 2 32 Bit registers. }
|
||||||
|
function joinreg64(reglo,reghi : tregister) : tregister64;
|
||||||
{$endif cpu64bitalu}
|
{$endif cpu64bitalu}
|
||||||
|
|
||||||
var
|
var
|
||||||
@ -2503,6 +2506,13 @@ implementation
|
|||||||
*****************************************************************************}
|
*****************************************************************************}
|
||||||
|
|
||||||
{$ifndef cpu64bitalu}
|
{$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);
|
procedure tcg64.a_op64_const_reg_reg(list: TAsmList;op:TOpCG;size : tcgsize;value : int64; regsrc,regdst : tregister64);
|
||||||
begin
|
begin
|
||||||
a_load64_reg_reg(list,regsrc,regdst);
|
a_load64_reg_reg(list,regsrc,regdst);
|
||||||
|
Loading…
Reference in New Issue
Block a user