paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 05:10:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed web bugs 1480 and 1481

Browse Source
This commit is contained in:
Jonas Maebe 2001-05-17 13:25:24 +00:00
parent d811aeedf7
commit f4ab3095c2
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/pstatmnt.pas
View File

@ -711,7 +711,7 @@ implementation
else
p:=nil;
p:=cexitnode.create(p);
p.resulttype:=voidtype;
do_resulttypepass(p);
exit_statement:=p;
end;
@ -1222,10 +1222,13 @@ implementation
end.
{
$Log$
Revision 1.29 2001-05-04 15:52:04 florian
* some Delphi incompatibilities fixed:
- out, dispose and new can be used as idenfiers now
- const p = apointerype(nil); is supported now
Revision 1.30 2001-05-17 13:25:24 jonas
* fixed web bugs 1480 and 1481
Revision 1.29 2001/05/04 15:52:04 florian
* some Delphi incompatibilities fixed:
- out, dispose and new can be used as idenfiers now
- const p = apointerype(nil); is supported now
+ support for const p = apointertype(pointer(1234)); added
Revision 1.28 2001/04/21 12:03:11 peter