소스 검색

* fixed getintparaloc call for ansi- and widestring range checking

florian 22 년 전
부모
커밋
a41d686f98
1개의 변경된 파일6개의 추가작업 그리고 3개의 파일을 삭제
  1. 6 3
      compiler/ncgmem.pas

+ 6 - 3
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
 
-}
+}