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

* don't crash when parsing exit(xxx) in a constructor (mantis #23110)

Browse Source 
git-svn-id: trunk@22795 -
This commit is contained in:
Jonas Maebe 2012-10-21 13:43:03 +00:00
parent 6497d3c994
commit 1822c46d8a
3 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -12930,6 +12930,7 @@ tests/webtbs/tw2305.pp svneol=native#text/plain
tests/webtbs/tw2306.pp svneol=native#text/plain
tests/webtbs/tw2307.pp svneol=native#text/plain
tests/webtbs/tw2311.pp svneol=native#text/plain
tests/webtbs/tw23110.pp svneol=native#text/plain
tests/webtbs/tw2317.pp svneol=native#text/plain
tests/webtbs/tw2318.pp svneol=native#text/plain
tests/webtbs/tw2318b.pp svneol=native#text/plain

5
compiler/pexpr.pas
View File

@ -306,8 +306,9 @@ implementation
begin
p1:=comp_expr(true,false);
consume(_RKLAMMER);
if (not assigned(current_procinfo) or
is_void(current_procinfo.procdef.returndef)) then
if not assigned(current_procinfo) or
(current_procinfo.procdef.proctypeoption in [potype_constructor,potype_destructor]) or
is_void(current_procinfo.procdef.returndef) then
begin
Message(parser_e_void_function);
{ recovery }

11
tests/webtbs/tw23110.pp Normal file
View File

@ -0,0 +1,11 @@
type TTest = object
constructor Init;
end;
constructor TTest.Init;
begin
exit (0);
end;
begin
end.