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

* remove debug line

Browse Source 
* containself methods can be called directly
This commit is contained in:
peter 2002-09-01 12:14:15 +00:00
parent a06f84daf8
commit 8ee2462ba4
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncal.pas
View File

@ -1470,10 +1470,7 @@ implementation
srprocsym : tprocsym; srprocsym : tprocsym;
srsymtable : tsymtable; srsymtable : tsymtable;
begin begin
if fileinfo.line=300 then
result:=nil;
result:=nil; result:=nil;
procs:=nil; procs:=nil;
oldcallprocdef:=aktcallprocdef; oldcallprocdef:=aktcallprocdef;
@ -2140,10 +2137,12 @@ implementation
goto errorexit; goto errorexit;
end; end;
{$ifdef dummy}
{ Calling a message method directly ? } { Calling a message method directly ? }
if assigned(procdefinition) and if assigned(procdefinition) and
(po_containsself in procdefinition.procoptions) then (po_containsself in procdefinition.procoptions) then
message(cg_e_cannot_call_message_direct); message(cg_e_cannot_call_message_direct);
{$endif}
{ ensure that the result type is set } { ensure that the result type is set }
if not restypeset then if not restypeset then
@ -2594,7 +2593,11 @@ begin
end. end.
{ {
$Log$ $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 * Removed sets from Tcallnode.det_resulttype
+ Added read/write notifications of variables. These will be usefull + Added read/write notifications of variables. These will be usefull
for providing information for several optimizations. For example for providing information for several optimizations. For example