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

* typecheck for exit(value) : resulttype was not set

Browse Source
This commit is contained in:
pierre 1999-03-10 11:23:29 +00:00
parent b570974cea
commit ebd2da41dc
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/pstatmnt.pas
View File

@ -690,7 +690,9 @@ unit pstatmnt;
end
else
p:=nil;
exit_statement:=gensinglenode(exitn,p);
p:=gensinglenode(exitn,p);
p^.resulttype:=procinfo.retdef;
exit_statement:=p;
end;
@ -1286,7 +1288,10 @@ unit pstatmnt;
end.
{
$Log$
Revision 1.70 1999-03-04 13:55:45 pierre
Revision 1.71 1999-03-10 11:23:29 pierre
* typecheck for exit(value) : resulttype was not set
Revision 1.70 1999/03/04 13:55:45 pierre
* some m68k fixes (still not compilable !)
* new(tobj) does not give warning if tobj has no VMT !