add LCC - a better C-Compiler for WEGA

WEGA/contrib/lcc/lib/libc/port/gen/l64a.c

@@ -0,0 +1,33 @@
+#include <values.h>
+#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);
+}