From ab9d713cc100e4b1a35858f8069f4e1170433b88 Mon Sep 17 00:00:00 2001 From: "Peter B. Kessler" Date: Sat, 30 Aug 1980 00:01:06 -0800 Subject: [PATCH] float integer actual to real formal SCCS-vsn: usr.bin/pascal/src/call.c 1.2 --- usr/src/usr.bin/pascal/src/call.c | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/usr/src/usr.bin/pascal/src/call.c b/usr/src/usr.bin/pascal/src/call.c index e2d7a24e7c..91e8993bd0 100644 --- a/usr/src/usr.bin/pascal/src/call.c +++ b/usr/src/usr.bin/pascal/src/call.c @@ -1,6 +1,6 @@ /* Copyright (c) 1979 Regents of the University of California */ -static char sccsid[] = "@(#)call.c 1.4 %G%"; +static char sccsid[] = "@(#)call.c 1.2 %G%"; #include "whoami.h" #include "0.h" @@ -135,11 +135,12 @@ call(p, argv, porf, psbn) q = rvalue( argv[1] , p1 -> type , RREQ ); postcheck( p1 -> type ); break; - /* - * and fall through - */ default: q = rvalue( argv[1] , p1 -> type , RREQ ); + if ( isa( p1 -> type , "d" ) + && isa( q , "i" ) ) { + putop( P2SCONV , P2DOUBLE ); + } break; } # endif PC -- 2.20.1