mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 10:29:17 +02:00
* remove debug line
* containself methods can be called directly
This commit is contained in:
parent
a06f84daf8
commit
8ee2462ba4
@ -1470,10 +1470,7 @@ implementation
|
||||
srprocsym : tprocsym;
|
||||
srsymtable : tsymtable;
|
||||
begin
|
||||
if fileinfo.line=300 then
|
||||
result:=nil;
|
||||
result:=nil;
|
||||
|
||||
procs:=nil;
|
||||
|
||||
oldcallprocdef:=aktcallprocdef;
|
||||
@ -2140,10 +2137,12 @@ implementation
|
||||
goto errorexit;
|
||||
end;
|
||||
|
||||
{$ifdef dummy}
|
||||
{ Calling a message method directly ? }
|
||||
if assigned(procdefinition) and
|
||||
(po_containsself in procdefinition.procoptions) then
|
||||
message(cg_e_cannot_call_message_direct);
|
||||
{$endif}
|
||||
|
||||
{ ensure that the result type is set }
|
||||
if not restypeset then
|
||||
@ -2594,7 +2593,11 @@ begin
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.90 2002-09-01 08:01:16 daniel
|
||||
Revision 1.91 2002-09-01 12:14:15 peter
|
||||
* remove debug line
|
||||
* containself methods can be called directly
|
||||
|
||||
Revision 1.90 2002/09/01 08:01:16 daniel
|
||||
* Removed sets from Tcallnode.det_resulttype
|
||||
+ Added read/write notifications of variables. These will be usefull
|
||||
for providing information for several optimizations. For example
|
||||
|
Loading…
Reference in New Issue
Block a user