From 26dca1762ed107bc4dea9691a9255d1c61bd6833 Mon Sep 17 00:00:00 2001 From: Oliver Lehmann Date: Thu, 22 Mar 1990 17:52:00 +0000 Subject: [PATCH] add LCC - a better C-Compiler for WEGA --- WEGA/contrib/lcc/lib/libc/port/gen/l64a.c | 33 +++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 WEGA/contrib/lcc/lib/libc/port/gen/l64a.c diff --git a/WEGA/contrib/lcc/lib/libc/port/gen/l64a.c b/WEGA/contrib/lcc/lib/libc/port/gen/l64a.c new file mode 100644 index 0000000..8726e48 --- /dev/null +++ b/WEGA/contrib/lcc/lib/libc/port/gen/l64a.c @@ -0,0 +1,33 @@ +#include +#define BITSPERCHAR 6 /* to hold entire character set */ +#define BITSPERLONG (BITSPERBYTE * sizeof(long)) +#define NMAX ((BITSPERLONG + BITSPERCHAR - 1)/BITSPERCHAR) +#define SIGN (-(1L << (BITSPERLONG - BITSPERCHAR - 1))) +#define CHARMASK ((1 << BITSPERCHAR) - 1) +#define WORDMASK ((1L << ((NMAX - 1) * BITSPERCHAR)) - 1) + +static char buf[NMAX + 1]; + +char * +l64a(lg) +register long lg; +{ + register char *s = buf; + + while (lg != 0) { + + register int c = ((int)lg & CHARMASK) + ('0' - 2); + + if (c > '9') + c += 'A' - '9' - 1; + if (c > 'Z') + c += 'a' - 'Z' - 1; + *s++ = c; + /* fill high-order CHAR if negative */ + /* but suppress sign propagation */ + lg = ((lg < 0) ? (lg >> BITSPERCHAR) | SIGN : + lg >> BITSPERCHAR) & WORDMASK; + } + *s = '\0'; + return (buf); +}