pointer display size 48 -> 64.

mitchan0321 · Dec 13, 2024 · 7f46e33 · 7f46e33
1 parent 1bc198c
commit 7f46e33
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/lib/slist.prfm b/lib/slist.prfm
@@ -4,10 +4,10 @@ defun slist (all: all wide: wide) {
     set l [stack-list];
     println "Number of slot: " [$l car];
 
-    println ["%3v %-1!v %-12v %-12v %-12v %-12v %-1v %6v %-v" fmt
+    println ["%3v %-1!v %-16v %-16v %-16v %-16v %-1v %6v %-v" fmt
 	     "#" "S" "Top" "Barrier" "Safe" "Bottom" "E" "Avail" "Script"];
-    println ["%3v %-1!v %-12v %-12v %-12v %-12v %-1v %6v %-v" fmt
-	     "===" "==" "============" "============" "============" "============" "=" "======" "======"];
+    println ["%3v %-1!v %-16v %-16v %-16v %-16v %-1v %6v %-v" fmt
+	     "===" "==" "================" "================" "================" "================" "=" "======" "======"];
 
     if {! [set? all]} then: {
 	set ll [$l,1 filter {| i | ! [eq? $i,1 FREE]}];
@@ -16,7 +16,7 @@ defun slist (all: all wide: wide) {
     };
 
     $ll each do: {| f |
-	println ["%3d %-1!v %012x %012x %012x %012x %1d %6d %-v" fmt
+	println ["%3d %-1!v %016x %016x %016x %016x %1d %6d %-v" fmt
 		 $f,0
 		 $f,1
 		 $f,2