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

* type check the exit()

Browse Source
This commit is contained in:
peter 1999-03-09 19:24:42 +00:00
parent 07da08426d
commit b570974cea
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/tcflw.pas
View File

@ -322,6 +322,11 @@ implementation
begin
if assigned(p^.left) then
begin
firstpass(p^.left);
if codegenerror then
exit;
{ Check the 2 types }
p^.left:=gentypeconvnode(p^.left,p^.resulttype);
firstpass(p^.left);
p^.registers32:=p^.left^.registers32;
p^.registersfpu:=p^.left^.registersfpu;
@ -488,7 +493,10 @@ implementation
end.
{
$Log$
Revision 1.6 1999-02-22 02:15:48 peter
Revision 1.7 1999-03-09 19:24:42 peter
* type check the exit()
Revision 1.6 1999/02/22 02:15:48 peter
* updates for ag386bin
Revision 1.5 1999/01/13 12:01:43 peter