shithub: sl

Info  •  Files  •  Log  •  Branches

lsd: use new ptr type

--- a/src/plan9/lsd.c

+++ b/src/plan9/lsd.c

@@ -72,7 +72,7 @@

 	vec_elt(v, 0) = lsd_symsym;

 	vec_elt(v, 1) = str_from_cstr(s->name);

 	vec_elt(v, 2) = mk_rune(r);

-	vec_elt(v, 3) = size_wrap(s->value);

+	vec_elt(v, 3) = mk_ptr(s->value);

 	sl_free_gc_handles(1);

 	return v;

 }

@@ -459,15 +459,4 @@

 	if(!findsym(addr, CTEXT, &s))

 		lerrorf(sl_errio, "could not locate sym near %ud", addr);

 	return mk_symbol(&s);

-}

-

-sl_purefn

-BUILTIN("lsd-ptr", lsd_ptr)

-{

-	sl_v ptrsym;

-

-	USED(args);

-	argcount(nargs, 0);

-	ptrsym = sizeof(void*) == 4 ? sl_u32sym : sl_u64sym;

-	return sym_value(ptrsym);

 }

--- a/src/plan9/lsd.sl

+++ b/src/plan9/lsd.sl

@@ -63,7 +63,6 @@

 (def pid -1)

 (def bptbl (table))

 (def ctrace (get tracers (os-getenv "objtype")))

-(def ptr (lsd-ptr))

 (def (procfile s . flags)

   (when (< pid 0) (error "no active process"))

@@ -234,7 +233,7 @@

   :doc-see loc->addr

   :doc-see bpdel

   :doc-group lsd

-  (def (txtsymb s) global-symbol s :text T))

+  (def (txtsymb s) (global-symbol s :text T))

   (waitstop)

   (let {[addr (loc->addr loc :str->symbol txtsymb)]}

     (unless (has? bptbl addr)

-- 

⑨