瀏覽代碼

* fixed para locations of fpc_class_new helper call

florian 22 年之前
父節點
當前提交
4450957bdd
共有 1 個文件被更改,包括 5 次插入2 次删除
  1. 5 2
      compiler/cgobj.pas

+ 5 - 2
compiler/cgobj.pas

@@ -1657,7 +1657,7 @@ unit cgobj;
               procinfo.flags:=procinfo.flags or pi_needs_implicit_finally;
               procinfo.flags:=procinfo.flags or pi_needs_implicit_finally;
             { parameter 2 : vmt pointer, 0 when called by inherited }
             { parameter 2 : vmt pointer, 0 when called by inherited }
             reference_reset_base(href, procinfo.framepointer,procinfo.vmtpointer_offset);
             reference_reset_base(href, procinfo.framepointer,procinfo.vmtpointer_offset);
-            a_param_ref(list, OS_ADDR,href,paramanager.getintparaloc(1));
+            a_param_ref(list, OS_ADDR,href,paramanager.getintparaloc(2));
             { parameter 1 : self pointer }
             { parameter 1 : self pointer }
             reference_reset_base(href, procinfo.framepointer,procinfo.selfpointer_offset);
             reference_reset_base(href, procinfo.framepointer,procinfo.selfpointer_offset);
             a_param_ref(list, OS_ADDR,href,paramanager.getintparaloc(1));
             a_param_ref(list, OS_ADDR,href,paramanager.getintparaloc(1));
@@ -1854,7 +1854,10 @@ finalization
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.89  2003-04-26 17:21:08  florian
+  Revision 1.90  2003-04-26 20:57:17  florian
+    * fixed para locations of fpc_class_new helper call
+
+  Revision 1.89  2003/04/26 17:21:08  florian
     * fixed passing of fpu values by fpu register
     * fixed passing of fpu values by fpu register
 
 
   Revision 1.88  2003/04/23 20:16:03  peter
   Revision 1.88  2003/04/23 20:16:03  peter