paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 21:10:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* allow typenodes for typeinfo and typeof

Browse Source 
* tp procvar fixes for properties
This commit is contained in:
peter 2001-05-19 21:15:53 +00:00
parent 002118ddf4
commit d997613a11
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/pexpr.pas
View File

@ -282,7 +282,9 @@ implementation
consume(_LKLAMMER); consume(_LKLAMMER);
in_args:=true; in_args:=true;
p1:=comp_expr(true); p1:=comp_expr(true);
if p1.nodetype<>typen then if p1.nodetype=typen then
ttypenode(p1).allowed:=true
else
begin begin
p1.destroy; p1.destroy;
p1:=cerrornode.create; p1:=cerrornode.create;
@ -1069,7 +1071,7 @@ implementation
begin begin
if procinfo^._class.is_related(tobjectdef(htype.def)) then if procinfo^._class.is_related(tobjectdef(htype.def)) then
begin begin
p1:=ctypenode.create(htype); p1:=nil;
{ search also in inherited methods } { search also in inherited methods }
repeat repeat
srsym:=tvarsym(tobjectdef(htype.def).symtable.search(pattern)); srsym:=tvarsym(tobjectdef(htype.def).symtable.search(pattern));
@ -1090,7 +1092,7 @@ implementation
begin begin
{ allows @TObject.Load } { allows @TObject.Load }
{ also allows static methods and variables } { also allows static methods and variables }
p1:=ctypenode.create(htype); p1:=nil;
{ TP allows also @TMenu.Load if Load is only } { TP allows also @TMenu.Load if Load is only }
{ defined in an anchestor class } { defined in an anchestor class }
srsym:=tvarsym(search_class_member(tobjectdef(htype.def),pattern)); srsym:=tvarsym(search_class_member(tobjectdef(htype.def),pattern));
@ -2311,7 +2313,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.33 2001-05-19 12:23:59 peter Revision 1.34 2001-05-19 21:15:53 peter
* allow typenodes for typeinfo and typeof
* tp procvar fixes for properties
Revision 1.33 2001/05/19 12:23:59 peter
* fixed crash with auto dereferencing * fixed crash with auto dereferencing
Revision 1.32 2001/05/09 19:52:51 peter Revision 1.32 2001/05/09 19:52:51 peter