|
@@ -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
|