commit d9c2aa3a3366b60d5054c575801692579162a47f
from: rsc <devnull@localhost>
date: Mon Apr 19 18:19:09 2004 UTC

whoops

commit - 0a61c07d591273b76da21fb8386b669989da3707
commit + d9c2aa3a3366b60d5054c575801692579162a47f
blob - 16b613a7a97489c61244d3c7807e9ebca0bd2d64 (mode 644)
blob + /dev/null
Binary files acid/core and /dev/null differ
blob - 8e9f2e76f8ac2a72bc5ff26c18f3a287084883c0 (mode 644)
blob + /dev/null
--- acid/elflink
+++ /dev/null
@@ -1,54 +0,0 @@
-aggr Rdebug
-{
-	'X' 0 version;
-	'X' 4 map;
-};
-
-aggr Rmap
-{
-	'X' 0 addr;
-	'X' 4 name;
-	'X' 8 dynsect;
-	'X' 12 next;
-	'X' 16 prev;
-};
-
-defn
-rdebug()
-{
-	local a;
-
-	a = _DYNAMIC;
-	while *a != 0 do {
-		if *a == 21 then // 21 == DT_DEBUG
-			return *(a+4);
-		a = a+8;
-	}
-	return 0;
-}
-
-defn
-rlink()
-{
-	local r, m, n;
-
-	r = rdebug();
-	if r == 0 then
-		return {};
-	complex Rdebug r;
-	print("version ", r.version, "\n");
-
-	m = r.map;
-	n = 0;
-	while m != 0 && n < 100 do {
-		complex Rmap m;
-		print("map ", m\X, " base ", m.addr\X, " next ", m.next\X, " name ");
-		if m.name then
-			print(*(m.name\s));
-		else
-			print("''");
-		print("\n");
-		m = m.next;
-		n = n+1;
-	}
-}