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

* endianess fix

Browse Source
This commit is contained in:
Jonas Maebe 2002-08-10 17:15:06 +00:00
parent f1f27e99b4
commit bedbc15e75
2 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ncgcon.pas
View File

@ -152,8 +152,7 @@ implementation
procedure tcgordconstnode.pass_2;
begin
location_reset(location,LOC_CONSTANT,def_cgsize(resulttype.def));
location.valuelow:=AWord(value);
location.valuehigh:=AWord(value shr 32);
location.valueqword:=qword(value);
end;
@ -392,7 +391,7 @@ implementation
neededtyp : tait;
type
setbytes=array[0..31] of byte;
Psetbytes=^setbytes;
Psetbytes=^setbytes;
begin
{ small sets are loaded as constants }
if tsetdef(resulttype.def).settype=smallset then
@ -423,11 +422,11 @@ implementation
i:=0;
while assigned(hp1) and (i<32) do
begin
{$ifdef oldset}
{$ifdef oldset}
if tai_const(hp1).value<>value_set^[i] then
{$else}
{$else}
if tai_const(hp1).value<>Psetbytes(value_set)^[i] then
{$endif}
{$endif}
break;
inc(i);
hp1:=tai(hp1.next);
@ -526,7 +525,10 @@ begin
end.
{
$Log$
Revision 1.15 2002-07-23 12:34:30 daniel
Revision 1.16 2002-08-10 17:15:06 jonas
* endianess fix
Revision 1.15 2002/07/23 12:34:30 daniel
* Readded old set code. To use it define 'oldset'. Activated by default
for ppc.

9
compiler/powerpc/cpubase.pas
View File

@ -381,7 +381,7 @@ uses
LOC_CONSTANT : (
case longint of
1 : (value : AWord);
2 : (valuelow, valuehigh:AWord);
2 : (valuehigh, valuelow:AWord);
{ overlay a complete 64 Bit value }
3 : (valueqword : qword);
);
@ -520,7 +520,7 @@ uses
{ WARNING: don't change to R_ST0!! See comments above implementation of }
{ a_loadfpu* methods in rgcpu (JM) }
{$warning I don't know the exact values, please check (PFV) }
FPU_RESULT_REG = R_F0;
fpu_result_reg = R_F1;
mmresultreg = R_M0;
{*****************************************************************************
@ -646,7 +646,10 @@ implementation
end.
{
$Log$
Revision 1.24 2002-08-06 20:55:24 florian
Revision 1.25 2002-08-10 17:15:06 jonas
* endianess fix
Revision 1.24 2002/08/06 20:55:24 florian
* first part of ppc calling conventions fix
Revision 1.23 2002/08/04 12:57:56 jonas