Initial revision

1987-01-05 17:31:38 +00:00
parent ad0cab046a
commit 76d4ac5194
18 changed files with 1193 additions and 0 deletions
--- a/modules/src/object/rd_ranlib.c
+++ b/modules/src/object/rd_ranlib.c
@@ -0,0 +1,21 @@
+#include <ranlib.h>
+#include "object.h"
+
+rd_ranlib(fd, ran, cnt)
+	register struct ranlib	*ran;
+	register long	cnt;
+{
+	rd_bytes(fd, (char *) ran, cnt * SZ_RAN);
+#if ! (BYTES_REVERSED || WORDS_REVERSED)
+	if (sizeof (struct ranlib) != SZ_RAN)
+#endif
+	{
+		register char *c = (char *) ran;
+
+		while (cnt--) {
+			ran->ran_off = get4(c); c += 4;
+			ran->ran_pos = get4(c); c += 4;
+			ran++;
+		}
+	}
+}