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

* quick fix for param64 for intel

Browse Source
This commit is contained in:
florian 2003-04-27 09:10:49 +00:00
parent b19a9cfc0a
commit 886dae65fe
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

@ -511,11 +511,13 @@ unit cg64f32;
inc(tmploclo.reference.offset,4) inc(tmploclo.reference.offset,4)
else else
inc(tmplochi.reference.offset,4); inc(tmplochi.reference.offset,4);
{ !!! i386 doesn't pass proper locations here
else else
internalerror(2003042702); internalerror(2003042702);
}
end; end;
cg.a_param_const(list,OS_32,lo(value),tmploclo);
cg.a_param_const(list,OS_32,hi(value),tmplochi); cg.a_param_const(list,OS_32,hi(value),tmplochi);
cg.a_param_const(list,OS_32,lo(value),tmploclo);
end; end;
@ -547,11 +549,13 @@ unit cg64f32;
inc(tmprefhi.offset,4); inc(tmprefhi.offset,4);
inc(tmplochi.reference.offset,4); inc(tmplochi.reference.offset,4);
end end
{ !!! i386 doesn't pass proper locations here
else else
internalerror(2003042701); internalerror(2003042701);
}
end; end;
cg.a_param_ref(list,OS_32,tmpreflo,tmploclo);
cg.a_param_ref(list,OS_32,tmprefhi,tmplochi); cg.a_param_ref(list,OS_32,tmprefhi,tmplochi);
cg.a_param_ref(list,OS_32,tmpreflo,tmploclo);
end; end;
@ -861,7 +865,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.41 2003-04-27 08:23:51 florian 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
* fixed parameter passing for 64 bit ints * fixed parameter passing for 64 bit ints
Revision 1.40 2003/04/23 20:16:03 peter Revision 1.40 2003/04/23 20:16:03 peter