Procházet zdrojové kódy

* reset symbol for unique types

peter před 22 roky
rodič
revize
d7d14b0eca
1 změnil soubory, kde provedl 5 přidání a 2 odebrání
  1. 5 2
      compiler/pdecl.pas

+ 5 - 2
compiler/pdecl.pas

@@ -459,7 +459,7 @@ implementation
                 begin
                    tt.setdef(tstoreddef(tt.def).getcopy);
                    include(tt.def.defoptions,df_unique);
-                   newtype.restype.def:=tt.def;
+                   newtype.restype:=tt;
                 end;
               if assigned(tt.def) and not assigned(tt.def.typesym) then
                 tt.def.typesym:=newtype;
@@ -633,7 +633,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.64  2003-01-05 15:54:15  florian
+  Revision 1.65  2003-04-01 16:17:15  peter
+    * reset symbol for unique types
+
+  Revision 1.64  2003/01/05 15:54:15  florian
     + added proper support of type = type <type>; for simple types
 
   Revision 1.63  2002/12/29 14:57:50  peter