Initial revision

lang/cem/libcc/gen/l3.c

@@ -0,0 +1,24 @@
+ltol3(cp, lp, n)
+register char	*cp;
+register long	*lp;
+register int	n;
+{
+	while (n-- > 0) {
+		*cp++ = (*lp >> 16);
+		*cp++ = (*lp > 8);
+		*cp++ = *lp;
+	}
+}
+
+l3tol(lp, cp, n)
+register long	*lp;
+char	*cp;
+register int	n;
+{
+	unsigned char *a = (unsigned char *) cp;
+
+	while (n-- > 0) {
+		*lp++ = ((long)(*a)<<16) + ((long)(*(a+1)) << 8) + *(a+2);
+		a += 3;
+	}
+}