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

* fixed crash with auto dereferencing

Browse Source
This commit is contained in:
peter 2001-05-19 12:23:59 +00:00
parent fc88544de0
commit be05f2b65b
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/pexpr.pas
View File

@ -1478,7 +1478,10 @@ implementation
consume(_POINT);
if (p1.resulttype.def.deftype=pointerdef) and
(m_autoderef in aktmodeswitches) then
p1:=cderefnode.create(p1);
begin
p1:=cderefnode.create(p1);
do_resulttypepass(p1);
end;
case p1.resulttype.def.deftype of
recorddef:
begin
@ -2308,7 +2311,10 @@ implementation
end.
{
$Log$
Revision 1.32 2001-05-09 19:52:51 peter
Revision 1.33 2001-05-19 12:23:59 peter
* fixed crash with auto dereferencing
Revision 1.32 2001/05/09 19:52:51 peter
* removed unused allow_type
Revision 1.31 2001/05/04 15:52:03 florian