* don't allow assigned(tobject) anymore, it is useless since it

is always true

compiler/pexpr.pas

@@ -444,6 +444,15 @@ implementation
               consume(_LKLAMMER);
               in_args:=true;
               p1:=comp_expr(true);
+              { When reading a class type it is parsed as loadvmtaddrn,
+                typeinfo only needs the type so we remove the loadvmtaddrn }
+              if p1.nodetype=loadvmtaddrn then
+                begin
+                  p2:=tloadvmtaddrnode(p1).left;
+                  tloadvmtaddrnode(p1).left:=nil;
+                  p1.free;
+                  p1:=p2;
+                end;
               if not codegenerror then
                begin
                  case p1.resulttype.def.deftype of
@@ -2399,7 +2408,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.159  2004-06-28 14:38:36  michael
+  Revision 1.160  2004-06-29 20:59:43  peter
+    * don't allow assigned(tobject) anymore, it is useless since it
+      is always true
+
+  Revision 1.159  2004/06/28 14:38:36  michael
   + Patch from peter to fix typinfo for classes
 
   Revision 1.158  2004/06/20 08:55:30  florian