d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Fix: compatibility check in RETURN statement

Browse source
This commit is contained in:
ceriel 1996-06-06 07:37:02 +00:00
parent 740f1d5f75
commit 7f7f5f187f
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lang/m2/comp/walk.c
View file

@ -854,6 +854,9 @@ WalkStat(nd, exit_label, end_reached)
assignment compatible with the result type of the assignment compatible with the result type of the
function procedure (See Rep. 9.11). function procedure (See Rep. 9.11).
*/ */
if (nd->nd_RIGHT->nd_symb == STRING) {
TryToString(nd->nd_RIGHT, func_type);
}
if (!ChkAssCompat(&(nd->nd_RIGHT), func_type, "RETURN")) { if (!ChkAssCompat(&(nd->nd_RIGHT), func_type, "RETURN")) {
break; break;
} }