paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ constant procedure variables can have a @ in front:

Browse Source 
const p : procedure = @p;
    til now only
       const p : procedure = p;
    was allowed
This commit is contained in:
florian 2000-04-02 09:12:51 +00:00
parent 3dfffb4d75
commit fcf5315f23
1 changed files with 29 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
compiler/ptconst.pas
View File

@ -617,7 +617,26 @@ unit ptconst;
disposetree(p);
exit;
end;
end;
end
else if (p^.treetype=addrn) and assigned(p^.left) and
(p^.left^.treetype=calln) then
begin
if (p^.left^.symtableprocentry^.owner^.symtabletype=objectsymtable) and
(pobjectdef(p^.left^.symtableprocentry^.owner^.defowner)^.is_class) then
hp:=genloadmethodcallnode(pprocsym(p^.left^.symtableprocentry),
p^.left^.symtableproc,getcopy(p^.left^.methodpointer))
else
hp:=genloadcallnode(pprocsym(p^.left^.symtableprocentry),
p^.left^.symtableproc);
disposetree(p);
do_firstpass(hp);
p:=hp;
if codegenerror then
begin
disposetree(p);
exit;
end;
end;
{ let type conversion check everything needed }
p:=gentypeconvnode(p,def);
do_firstpass(p);
@ -775,7 +794,14 @@ unit ptconst;
end.
{
$Log$
Revision 1.63 2000-02-13 14:21:51 jonas
Revision 1.64 2000-04-02 09:12:51 florian
+ constant procedure variables can have a @ in front:
const p : procedure = @p;
til now only
const p : procedure = p;
was allowed
Revision 1.63 2000/02/13 14:21:51 jonas
* modifications to make the compiler functional when compiled with
-Or
@ -831,4 +857,4 @@ end.
* C alignment added for records
* PPU version increased to solve .12 <-> .13 probs
}
}