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

- remove valuelow/valuehigh fields from tlocation, because they depend

Browse Source 
on the endianess of the host operating system -> difficult to get
    right. Use lo/hi(location.valueqword) instead (remember to use
    valueqword and not value!!)
This commit is contained in:
Jonas Maebe 2002-08-14 18:41:47 +00:00
parent 9af3fc1776
commit 3ab3c91e0a
6 changed files with 56 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/cg64f32.pas
View File

@ -300,7 +300,7 @@ unit cg64f32;
LOC_REGISTER :
cg.a_load_reg_reg(list,OS_32,l.registerlow,reg);
LOC_CONSTANT :
cg.a_load_const_reg(list,OS_32,l.valuelow,reg);
cg.a_load_const_reg(list,OS_32,lo(l.valueqword),reg);
else
internalerror(200203244);
end;
@ -315,7 +315,7 @@ unit cg64f32;
LOC_REGISTER :
cg.a_load_reg_reg(list,OS_32,l.registerhigh,reg);
LOC_CONSTANT :
cg.a_load_const_reg(list,OS_32,l.valuehigh,reg);
cg.a_load_const_reg(list,OS_32,hi(l.valueqword),reg);
else
internalerror(200203244);
end;
@ -617,7 +617,13 @@ begin
end.
{
$Log$
Revision 1.24 2002-08-11 14:32:26 peter
Revision 1.25 2002-08-14 18:41:47 jonas
- remove valuelow/valuehigh fields from tlocation, because they depend
on the endianess of the host operating system -> difficult to get
right. Use lo/hi(location.valueqword) instead (remember to use
valueqword and not value!!)
Revision 1.24 2002/08/11 14:32:26 peter
* renamed current_library to objectlibrary
Revision 1.23 2002/08/11 13:24:11 peter

12
compiler/i386/cpubase.pas
View File

@ -288,7 +288,9 @@ uses
LOC_CONSTANT : (
case longint of
1 : (value : AWord);
2 : (valuelow, valuehigh:AWord);
{ can't do this, this layout depends on the host cpu. Use }
{ lo(valueqword)/hi(valueqword) instead (JM) }
{ 2 : (valuelow, valuehigh:AWord); }
{ overlay a complete 64 Bit value }
3 : (valueqword : qword);
);
@ -519,7 +521,13 @@ implementation
end.
{
$Log$
Revision 1.30 2002-08-13 21:40:58 florian
Revision 1.31 2002-08-14 18:41:48 jonas
- remove valuelow/valuehigh fields from tlocation, because they depend
on the endianess of the host operating system -> difficult to get
right. Use lo/hi(location.valueqword) instead (remember to use
valueqword and not value!!)
Revision 1.30 2002/08/13 21:40:58 florian
* more fixes for ppc calling conventions
Revision 1.29 2002/08/12 15:08:41 carl

12
compiler/i386/n386add.pas
View File

@ -1050,9 +1050,9 @@ interface
end;
LOC_CONSTANT :
begin
exprasmlist.concat(taicpu.op_const_reg(A_CMP,S_L,right.location.valuehigh,left.location.registerhigh));
exprasmlist.concat(taicpu.op_const_reg(A_CMP,S_L,hi(right.location.valueqword),left.location.registerhigh));
firstjmp64bitcmp;
exprasmlist.concat(taicpu.op_const_reg(A_CMP,S_L,right.location.valuelow,left.location.registerlow));
exprasmlist.concat(taicpu.op_const_reg(A_CMP,S_L,lo(right.location.valueqword),left.location.registerlow));
secondjmp64bitcmp;
end;
else
@ -1551,7 +1551,13 @@ begin
end.
{
$Log$
Revision 1.47 2002-08-11 14:32:29 peter
Revision 1.48 2002-08-14 18:41:48 jonas
- remove valuelow/valuehigh fields from tlocation, because they depend
on the endianess of the host operating system -> difficult to get
right. Use lo/hi(location.valueqword) instead (remember to use
valueqword and not value!!)
Revision 1.47 2002/08/11 14:32:29 peter
* renamed current_library to objectlibrary
Revision 1.46 2002/08/11 13:24:16 peter

12
compiler/m68k/cpubase.pas
View File

@ -274,7 +274,9 @@ uses
LOC_CONSTANT : (
case longint of
1 : (value : AWord);
2 : (valuelow, valuehigh:AWord);
{ can't do this, this layout depends on the host cpu. Use }
{ lo(valueqword)/hi(valueqword) instead (JM) }
{ 2 : (valuelow, valuehigh:AWord); }
{ overlay a complete 64 Bit value }
3 : (valueqword : qword);
);
@ -553,7 +555,13 @@ implementation
end.
{
$Log$
Revision 1.7 2002-08-13 21:40:58 florian
Revision 1.8 2002-08-14 18:41:47 jonas
- remove valuelow/valuehigh fields from tlocation, because they depend
on the endianess of the host operating system -> difficult to get
right. Use lo/hi(location.valueqword) instead (remember to use
valueqword and not value!!)
Revision 1.7 2002/08/13 21:40:58 florian
* more fixes for ppc calling conventions
Revision 1.6 2002/08/13 18:58:54 carl

12
compiler/powerpc/cpubase.pas
View File

@ -382,7 +382,9 @@ uses
LOC_CONSTANT : (
case longint of
1 : (value : AWord);
2 : (valuehigh, valuelow:AWord);
{ can't do this, this layout depends on the host cpu. Use }
{ lo(valueqword)/hi(valueqword) instead (JM) }
{ 2 : (valuelow, valuehigh:AWord); }
{ overlay a complete 64 Bit value }
3 : (valueqword : qword);
);
@ -707,7 +709,13 @@ implementation
end.
{
$Log$
Revision 1.27 2002-08-13 21:40:58 florian
Revision 1.28 2002-08-14 18:41:47 jonas
- remove valuelow/valuehigh fields from tlocation, because they depend
on the endianess of the host operating system -> difficult to get
right. Use lo/hi(location.valueqword) instead (remember to use
valueqword and not value!!)
Revision 1.27 2002/08/13 21:40:58 florian
* more fixes for ppc calling conventions
Revision 1.26 2002/08/12 15:08:44 carl

10
compiler/powerpc/nppcadd.pas
View File

@ -198,7 +198,7 @@ interface
if (right.location.loc = LOC_CONSTANT) then
begin
{$ifdef extdebug}
if (qword(right.location.valuehigh) <> 0) then
if (high(right.location.valueqword) <> 0) then
internalerror(2002080301);
{$endif extdebug}
if (nodetype in [equaln,unequaln]) then
@ -1302,7 +1302,13 @@ begin
end.
{
$Log$
Revision 1.11 2002-08-11 14:32:32 peter
Revision 1.12 2002-08-14 18:41:48 jonas
- remove valuelow/valuehigh fields from tlocation, because they depend
on the endianess of the host operating system -> difficult to get
right. Use lo/hi(location.valueqword) instead (remember to use
valueqword and not value!!)
Revision 1.11 2002/08/11 14:32:32 peter
* renamed current_library to objectlibrary
Revision 1.10 2002/08/11 13:24:18 peter