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

* error check after pass1 of second for argument

Browse Source
This commit is contained in:
peter 1999-10-03 19:39:40 +00:00
parent e1f13876f5
commit b2ae851b20
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/tcflw.pas
View File

@ -293,6 +293,9 @@ implementation
cleartempgen;
firstpass(p^.right);
if codegenerror then
exit;
if p^.right^.treetype<>ordconstn then
begin
p^.right:=gentypeconvnode(p^.right,p^.t2^.resulttype);
@ -495,7 +498,10 @@ implementation
end.
{
$Log$
Revision 1.20 1999-09-27 23:45:01 peter
Revision 1.21 1999-10-03 19:39:40 peter
* error check after pass1 of second for argument
Revision 1.20 1999/09/27 23:45:01 peter
* procinfo is now a pointer
* support for result setting in sub procedure