From 4a64a77bd3c08809a1cfb4c5a76c2efbd33b1d7b Mon Sep 17 00:00:00 2001
From: rsc <devnull@localhost>
Date: Wed, 21 Apr 2004 20:04:18 +0000
Subject: add registers

---
 src/cmd/acid/list.c | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

(limited to 'src/cmd/acid')

diff --git a/src/cmd/acid/list.c b/src/cmd/acid/list.c
index 76214b2d..ad86966b 100644
--- a/src/cmd/acid/list.c
+++ b/src/cmd/acid/list.c
@@ -191,6 +191,32 @@ listvar(char *s, long v)
 	return tl;
 }
 
+static List*
+listregisters(Map *map, Regs *regs)
+{
+	List **tail, *l2, *l;
+	Regdesc *rp;
+	ulong v;
+
+	l2 = 0;
+	tail = &l2;
+	for(rp=mach->reglist; rp->name; rp++){
+		if(rget(regs, rp->name, &v) < 0)
+			continue;
+		l = al(TSTRING);
+		l->store.fmt = 's';
+		l->store.u.string = strnode(rp->name);
+		*tail = l;
+		tail = &l->next;
+		l = al(TINT);
+		l->store.fmt = 'X';
+		l->store.u.ival = v;
+		*tail = l;
+		tail = &l->next;
+	}
+	return l2;
+}
+
 static List*
 listlocals(Map *map, Regs *regs, Symbol *fn, int class)
 {
@@ -266,5 +292,9 @@ trlist(Map *map, Regs *regs, ulong pc, ulong callerpc, Symbol *sym, int depth)
 	if(sym)
 		l->store.u.l = listautos(map, regs, sym);
 
+	l->next = al(TLIST);		/* make list of registers */
+	l = l->next;
+	l->store.u.l = listregisters(map, regs);
+
 	return depth<40;
 }
-- 
cgit v1.2.3