diff --git a/compiler/cg64f32.pas b/compiler/cg64f32.pas index 1edc6f2709..04274a6f12 100644 --- a/compiler/cg64f32.pas +++ b/compiler/cg64f32.pas @@ -511,11 +511,13 @@ unit cg64f32; inc(tmploclo.reference.offset,4) else inc(tmplochi.reference.offset,4); + { !!! i386 doesn't pass proper locations here else internalerror(2003042702); + } 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,lo(value),tmploclo); end; @@ -547,11 +549,13 @@ unit cg64f32; inc(tmprefhi.offset,4); inc(tmplochi.reference.offset,4); end + { !!! i386 doesn't pass proper locations here else internalerror(2003042701); + } 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,tmpreflo,tmploclo); end; @@ -861,7 +865,10 @@ begin end. { $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 Revision 1.40 2003/04/23 20:16:03 peter