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

13
compiler/nmem.pas
View File

@ -323,7 +323,6 @@ implementation
function taddrnode.det_resulttype:tnode; function taddrnode.det_resulttype:tnode;
var var
hp : tnode; hp : tnode;
hp2 : TParavarsym;
hp3 : tabstractprocdef; hp3 : tabstractprocdef;
begin begin
result:=nil; result:=nil;
@ -436,7 +435,12 @@ implementation
tprocvardef(resulttype.def).calcparas; tprocvardef(resulttype.def).calcparas;
end end
else else
resulttype:=voidpointertype; begin
if assigned(tloadnode(left).left) then
CGMessage(parser_e_illegal_expression)
else
resulttype:=voidpointertype;
end;
end end
else else
begin begin
@ -996,7 +1000,10 @@ begin
end. end.
{ {
$Log$ $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 * tparaitem removed, use tparavarsym instead
* parameter order is now calculated from paranr value in tparavarsym * parameter order is now calculated from paranr value in tparavarsym