|
|
@@ -613,7 +613,7 @@ unit pexpr;
|
|
|
if (p2^.treetype<>errorn) and getprocvar then
|
|
|
handle_procvar(pprocvardef(ppropertysym(sym)^.proptype),p2);
|
|
|
p1^.left:=gencallparanode(p2,p1^.left);
|
|
|
- firstcallparan(p1^.left,nil);
|
|
|
+{ firstcallparan(p1^.left,nil); }
|
|
|
getprocvar:=false;
|
|
|
end
|
|
|
else if ppropertysym(sym)^.writeaccesssym^.typ=varsym then
|
|
|
@@ -1988,7 +1988,10 @@ unit pexpr;
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.105 1999-05-12 22:36:09 florian
|
|
|
+ Revision 1.106 1999-05-16 17:06:31 peter
|
|
|
+ * remove firstcallparan which looks obsolete
|
|
|
+
|
|
|
+ Revision 1.105 1999/05/12 22:36:09 florian
|
|
|
* override isn't allowed in objects!
|
|
|
|
|
|
Revision 1.104 1999/05/07 10:35:23 florian
|
peter