BSD 4_1_snap release

[unix-history] / usr / src / lib / libpc / CHR.c

diff --git a/usr/src/lib/libpc/CHR.c b/usr/src/lib/libpc/CHR.c
index adf8d51..cb98beb 100644 (file)
--- a/usr/src/lib/libpc/CHR.c
+++ b/usr/src/lib/libpc/CHR.c
@@ -1,16 +1,16 @@
 /* Copyright (c) 1979 Regents of the University of California */
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)CHR.c 1.1 10/29/80";
+static char sccsid[] = "@(#)CHR.c 1.3 6/10/81";

 
 

-#include "h01errs.h"

 
 

+char

 CHR(value)
 
        long    value;
 {
        if (value < 0 || value > 127) {
 CHR(value)
 
        long    value;
 {
        if (value < 0 || value > 127) {

-               ERROR(ECHR, value);
+               ERROR("Argument to chr of %D is out of range\n", value);

                return;
        }
                return;
        }

-       return value;
+       return (char)value;

 }
 }