Explorar el Código

* fixed getintparaloc call for ansi- and widestring range checking

florian hace 22 años
padre
commit
a41d686f98
Se han modificado 1 ficheros con 6 adiciones y 3 borrados
  1. 6 3
      compiler/ncgmem.pas

+ 6 - 3
compiler/ncgmem.pas

@@ -784,7 +784,7 @@ implementation
                          st_ansistring:
                          st_ansistring:
                            begin
                            begin
                               rg.saveusedintregisters(exprasmlist,pushed,all_intregisters);
                               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;
                               href:=location.reference;
                               dec(href.offset,7);
                               dec(href.offset,7);
                               cg.a_param_ref(exprasmlist,OS_INT,href,paramanager.getintparaloc(1));
                               cg.a_param_ref(exprasmlist,OS_INT,href,paramanager.getintparaloc(1));
@@ -824,7 +824,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $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
     * moved implicit exception frame from ncgutil to psub
     * constructor/destructor helpers moved from cobj/ncgutil to psub
     * constructor/destructor helpers moved from cobj/ncgutil to psub
 
 
@@ -1042,4 +1045,4 @@ end.
     * removed unused units
     * removed unused units
     * use tlocation.size in cg.a_*loc*() routines
     * use tlocation.size in cg.a_*loc*() routines
 
 
-}
+}