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

* support procvar^, with procvar returning a procvardef in tp/mac modes

Browse Source 
git-svn-id: trunk@1477 -
This commit is contained in:
peter 2005-10-18 12:33:27 +00:00
parent b55645790b
commit 38993ae7e8
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/pexpr.pas
View File

@ -1707,6 +1707,18 @@ implementation
_CARET:
begin
consume(_CARET);
{ support tp/mac procvar^ if the procvar returns a
pointer type }
if ((m_tp_procvar in aktmodeswitches) or
(m_mac_procvar in aktmodeswitches)) and
(p1.resulttype.def.deftype=procvardef) and
(tprocvardef(p1.resulttype.def).rettype.def.deftype=pointerdef) then
begin
p1:=ccallnode.create_procvar(nil,p1);
resulttypepass(p1);
end;
if (p1.resulttype.def.deftype<>pointerdef) then
begin
{ ^ as binary operator is a problem!!!! (FK) }
@ -1717,9 +1729,7 @@ implementation
p1:=cerrornode.create;
end
else
begin
p1:=cderefnode.create(p1);
end;
p1:=cderefnode.create(p1);
end;
_LECKKLAMMER: