Explorar o código

* fixed crash with new(precord), merged

peter %!s(int64=24) %!d(string=hai) anos
pai
achega
ffb25bce60
Modificáronse 1 ficheiros con 5 adicións e 2 borrados
  1. 5 2
      compiler/i386/n386mem.pas

+ 5 - 2
compiler/i386/n386mem.pas

@@ -149,7 +149,7 @@ implementation
                 begin
                    new(r);
                    reset_reference(r^);
-                   r^.symbol:=pstoreddef(ppointerdef(left.resulttype)^.pointertype.def)^.get_inittable_label;
+                   r^.symbol:=pstoreddef(ppointerdef(resulttype)^.pointertype.def)^.get_inittable_label;
                    emitpushreferenceaddr(r^);
                    dispose(r);
                    { push pointer we just allocated, we need to initialize the
@@ -1060,7 +1060,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.8  2000-12-25 00:07:33  peter
+  Revision 1.9  2001-02-02 22:38:00  peter
+    * fixed crash with new(precord), merged
+
+  Revision 1.8  2000/12/25 00:07:33  peter
     + new tlinkedlist class (merge of old tstringqueue,tcontainer and
       tlinkedlist objects)