From a41d686f9831e5621ea3bfaf05270de824615892 Mon Sep 17 00:00:00 2001 From: florian Date: Thu, 15 May 2003 16:10:37 +0000 Subject: [PATCH] * fixed getintparaloc call for ansi- and widestring range checking --- compiler/ncgmem.pas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/compiler/ncgmem.pas b/compiler/ncgmem.pas index 1af0ea8bb3..22fdb19f80 100644 --- a/compiler/ncgmem.pas +++ b/compiler/ncgmem.pas @@ -784,7 +784,7 @@ implementation st_ansistring: begin rg.saveusedintregisters(exprasmlist,pushed,all_intregisters); - cg.a_param_reg(exprasmlist,OS_INT,right.location.register,paramanager.getintparaloc(1)); + cg.a_param_reg(exprasmlist,OS_INT,right.location.register,paramanager.getintparaloc(2)); href:=location.reference; dec(href.offset,7); cg.a_param_ref(exprasmlist,OS_INT,href,paramanager.getintparaloc(1)); @@ -824,7 +824,10 @@ begin end. { $Log$ - Revision 1.53 2003-05-11 21:37:03 peter + Revision 1.54 2003-05-15 16:10:37 florian + * fixed getintparaloc call for ansi- and widestring range checking + + Revision 1.53 2003/05/11 21:37:03 peter * moved implicit exception frame from ncgutil to psub * constructor/destructor helpers moved from cobj/ncgutil to psub @@ -1042,4 +1045,4 @@ end. * removed unused units * use tlocation.size in cg.a_*loc*() routines -} +} \ No newline at end of file