paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:09:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* auto derefence mode for array pointer (merged)

Browse Source
This commit is contained in:
peter 2000-08-20 15:12:49 +00:00
parent d3aa211230
commit 90fc8a53aa
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/pexpr.pas
View File

@ -1438,11 +1438,17 @@ unit pexpr;
case pd^.deftype of case pd^.deftype of
pointerdef: pointerdef:
begin begin
pd:=ppointerdef(pd)^.pointertype.def;
{ support delphi autoderef }
if (pd^.deftype=arraydef) and
(m_autoderef in aktmodeswitches) then
begin
p1:=gensinglenode(derefn,p1);
pd:=parraydef(pd)^.elementtype.def;
end;
p2:=comp_expr(true); p2:=comp_expr(true);
p1:=gennode(vecn,p1,p2); p1:=gennode(vecn,p1,p2);
pd:=ppointerdef(pd)^.pointertype.def;
end; end;
stringdef : begin stringdef : begin
p2:=comp_expr(true); p2:=comp_expr(true);
p1:=gennode(vecn,p1,p2); p1:=gennode(vecn,p1,p2);
@ -2208,7 +2214,10 @@ _LECKKLAMMER : begin
end. end.
{ {
$Log$ $Log$
Revision 1.5 2000-08-16 18:33:53 peter Revision 1.6 2000-08-20 15:12:49 peter
* auto derefence mode for array pointer (merged)
Revision 1.5 2000/08/16 18:33:53 peter
* splitted namedobjectitem.next into indexnext and listnext so it * splitted namedobjectitem.next into indexnext and listnext so it
can be used in both lists can be used in both lists
* don't allow "word = word" type definitions (merged) * don't allow "word = word" type definitions (merged)