paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 23:29:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't allow @method in tp procvar mode

Browse Source
This commit is contained in:
peter 2004-11-26 22:33:24 +00:00
parent 08d0d3b73c
commit b55fe3fa67
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/nmem.pas
View File

@ -323,7 +323,6 @@ implementation
function taddrnode.det_resulttype:tnode;
var
hp : tnode;
hp2 : TParavarsym;
hp3 : tabstractprocdef;
begin
result:=nil;
@ -435,8 +434,13 @@ implementation
hp3.parast.foreach_static(@copyparasym,tprocvardef(resulttype.def).parast);
tprocvardef(resulttype.def).calcparas;
end
else
begin
if assigned(tloadnode(left).left) then
CGMessage(parser_e_illegal_expression)
else
resulttype:=voidpointertype;
end;
end
else
begin
@ -996,7 +1000,10 @@ begin
end.
{
$Log$
Revision 1.89 2004-11-15 23:35:31 peter
Revision 1.90 2004-11-26 22:33:24 peter
* don't allow @method in tp procvar mode
Revision 1.89 2004/11/15 23:35:31 peter
* tparaitem removed, use tparavarsym instead
* parameter order is now calculated from paranr value in tparavarsym