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

* fixed Florian's quick hack :)

Browse Source 
* fixed small bug 64bit range checking code
This commit is contained in:
Jonas Maebe 2003-04-27 14:48:09 +00:00
parent cfe94be378
commit 7a3e1b917c
1 changed files with 28 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/cg64f32.pas
View File

@ -506,12 +506,16 @@ unit cg64f32;
case locpara.loc of
LOC_REGISTER:
tmplochi.register:=tmplochi.registerhigh;
{ !!! i386 doesn't pass proper locations here
so always take a loc_reference, since that's what it uses (JM)
LOC_REFERENCE:
}
else
if target_info.endian=endian_big then
inc(tmploclo.reference.offset,4)
else
inc(tmplochi.reference.offset,4);
{ !!! i386 doesn't pass proper locations here
{
else
internalerror(2003042702);
}
@ -544,12 +548,24 @@ unit cg64f32;
inc(tmprefhi.offset,4);
tmplochi.register:=tmplochi.registerhigh;
end;
LOC_REFERENCE:
begin
inc(tmprefhi.offset,4);
inc(tmplochi.reference.offset,4);
end
{ !!! i386 doesn't pass proper locations here
so always take a loc_reference, since that's what it uses (JM)
LOC_REFERENCE:
}
else
begin
if target_info.endian=endian_big then
begin
inc(tmpreflo.offset,4);
inc(tmploclo.reference.offset,4);
end
else
begin
inc(tmprefhi.offset,4);
inc(tmplochi.reference.offset,4);
end;
end
{
else
internalerror(2003042701);
}
@ -652,7 +668,7 @@ unit cg64f32;
cg.g_rangecheck(list,p,todef);
hdef.free;
{ restore original resulttype.def }
p.resulttype.def := todef;
p.resulttype.def := fromdef;
if from_signed and to_signed then
begin
@ -865,7 +881,11 @@ begin
end.
{
$Log$
Revision 1.42 2003-04-27 09:10:49 florian
Revision 1.43 2003-04-27 14:48:09 jonas
* fixed Florian's quick hack :)
* fixed small bug 64bit range checking code
Revision 1.42 2003/04/27 09:10:49 florian
* quick fix for param64 for intel
Revision 1.41 2003/04/27 08:23:51 florian