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

* fixed g_rangecheck64 so it works again for big endian

Browse Source
This commit is contained in:
Jonas Maebe 2003-12-07 15:00:45 +00:00
parent 2eef2eae81
commit 5c7dba9167
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/cg64f32.pas
View File

@ -562,10 +562,14 @@ unit cg64f32;
{ simple cardinal }
cg.a_label(list,poslabel);
hdef:=torddef.create(u32bit,0,cardinal($ffffffff));
{ no use in calling just "g_rangecheck" since that one will }
{ simply call the inherited method too (JM) }
location_copy(temploc,l);
temploc.size:=OS_32;
if (temploc.loc in [LOC_REFERENCE,LOC_CREFERENCE]) and
(target_info.endian = endian_big) then
inc(temploc.reference.offset,4);
cg.g_rangecheck(list,temploc,hdef,todef);
hdef.free;
@ -761,7 +765,10 @@ begin
end.
{
$Log$
Revision 1.54 2003-12-06 01:15:22 florian
Revision 1.55 2003-12-07 15:00:45 jonas
* fixed g_rangecheck64 so it works again for big endian
Revision 1.54 2003/12/06 01:15:22 florian
* reverted Peter's alloctemp patch; hopefully properly
Revision 1.53 2003/12/03 23:13:19 peter