make error message global var, so routine can be inline expanded

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

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)CHR.c 1.4 %G%";

char ECHR[] = "Argument to chr of %D is out of range\n";

char
CHR(value)
       unsigned long   value;
{
       if (value > 127) {
               ERROR(ECHR, value);
               return;
       }
       return (char)value;
}