From ec796cc40b9a2998a9ec6882dd58049f70253231 Mon Sep 17 00:00:00 2001 From: florian Date: Sun, 3 Dec 2000 22:26:54 +0000 Subject: [PATCH] * fixed web buzg 1275: problem with int64 functions results --- compiler/i386/n386cal.pas | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/compiler/i386/n386cal.pas b/compiler/i386/n386cal.pas index 88efdda9eb..1a92340de0 100644 --- a/compiler/i386/n386cal.pas +++ b/compiler/i386/n386cal.pas @@ -1229,8 +1229,16 @@ implementation {$ifdef test_dest_loc} {$error Don't know what to do here} {$endif test_dest_loc} - hregister:=getexplicitregister32(R_EAX); - hregister2:=getexplicitregister32(R_EDX); + if R_EDX in unused then + begin + hregister2:=getexplicitregister32(R_EDX); + hregister:=getexplicitregister32(R_EAX); + end + else + begin + hregister:=getexplicitregister32(R_EAX); + hregister2:=getexplicitregister32(R_EDX); + end; emit_reg_reg(A_MOV,S_L,R_EAX,hregister); emit_reg_reg(A_MOV,S_L,R_EDX,hregister2); location.registerlow:=hregister; @@ -1589,7 +1597,10 @@ begin end. { $Log$ - Revision 1.11 2000-11-29 00:30:46 florian + Revision 1.12 2000-12-03 22:26:54 florian + * fixed web buzg 1275: problem with int64 functions results + + Revision 1.11 2000/11/29 00:30:46 florian * unused units removed from uses clause * some changes for widestrings