From: ceriel <none@none>
Date: Fri, 3 Jun 1988 14:25:26 +0000 (+0000)
Subject: corrected
X-Git-Tag: release-5-5~3226
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=cd893a6ff8c6ea0e69136e753f9f472565cd9e23;p=ack.git

corrected
---

diff --git a/mach/proto/fp/cuf4.c b/mach/proto/fp/cuf4.c
index 66dccfd04..546b36f80 100644
--- a/mach/proto/fp/cuf4.c
+++ b/mach/proto/fp/cuf4.c
@@ -16,6 +16,7 @@
 
 #include "FP_types.h"
 
+_float
 cuf4(ss,src)
 int	ss;	/* source size */
 long	src;	/* largest possible integer to convert */
@@ -41,7 +42,8 @@ long	src;	/* largest possible integer to convert */
 	fprintf(stderr,"CUF4(ds(%d),ss(%d),src(%D))\n\n",4,ss,i_src);
 #endif
 	if (i_src == 0)	{
-		src = 0L;
+		*result = (_float) 0L;
+		return (_float) 0L;
 	}
 			/* ESTABLISHED THAT src != 0	*/
 
@@ -58,4 +60,5 @@ long	src;	/* largest possible integer to convert */
 	fprintf(stderr,"CUF() buf.exp after nrm_ext() == %d\n\n",buf.exp);
 #endif
 	compact(&buf,(_double *) result,4);
+	return *result;
 }