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

* LOC_CREGISTER fix

Browse Source
This commit is contained in:
peter 2004-12-03 15:58:11 +00:00
parent c2263a36ac
commit 466c376d13
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/cg64f32.pas
View File

@ -374,7 +374,8 @@ unit cg64f32;
LOC_REFERENCE, LOC_REFERENCE,
LOC_CREFERENCE : LOC_CREFERENCE :
a_load64low_ref_reg(list,l.reference,reg); a_load64low_ref_reg(list,l.reference,reg);
LOC_REGISTER : LOC_REGISTER,
LOC_CREGISTER :
cg.a_load_reg_reg(list,OS_32,OS_32,l.register64.reglo,reg); cg.a_load_reg_reg(list,OS_32,OS_32,l.register64.reglo,reg);
LOC_CONSTANT : LOC_CONSTANT :
cg.a_load_const_reg(list,OS_32,aint(lo(l.value64)),reg); cg.a_load_const_reg(list,OS_32,aint(lo(l.value64)),reg);
@ -390,7 +391,8 @@ unit cg64f32;
LOC_REFERENCE, LOC_REFERENCE,
LOC_CREFERENCE : LOC_CREFERENCE :
a_load64high_ref_reg(list,l.reference,reg); a_load64high_ref_reg(list,l.reference,reg);
LOC_REGISTER : LOC_REGISTER,
LOC_CREGISTER :
cg.a_load_reg_reg(list,OS_32,OS_32,l.register64.reghi,reg); cg.a_load_reg_reg(list,OS_32,OS_32,l.register64.reghi,reg);
LOC_CONSTANT : LOC_CONSTANT :
cg.a_load_const_reg(list,OS_32,hi(l.value64),reg); cg.a_load_const_reg(list,OS_32,hi(l.value64),reg);
@ -777,7 +779,10 @@ unit cg64f32;
end. end.
{ {
$Log$ $Log$
Revision 1.65 2004-10-31 21:45:02 peter Revision 1.66 2004-12-03 15:58:11 peter
* LOC_CREGISTER fix
Revision 1.65 2004/10/31 21:45:02 peter
* generic tlocation * generic tlocation
* move tlocation to cgutils * move tlocation to cgutils