#ident "@(#)README 1.6 95/06/13 SMI"
FILES
Makefile - compiles the header files and also the interpreter.
It also runs forthgen on your *.fdbg files and
creates the forthdebug file. It will also install the
forthdebug file in kernel/drv.
parser.c - source file
stabs.c - source file
stabs.h - header file
*.fdbg - a file specifying a struct you are interested in and
the necessary header files
*.fth - generated by forthgen from *.fdbg
kdbg.fth - It has the forth program.
forthgen - It is the program that generates the words in *.fth files
for the structs whose names are specified in *.fdbg files.
forthdebug - is the concatenation of kdbg.fth and and all *fth files. This file
gets installed in kernel/drv and will be read in by the
kernel during boot up (if obpdebug or fortdebug are set).
Ques: How do I create a word for a struct I am interested in?
Ans:
1) Look in fdbg/*.fdbg files to make sure that it isn't already in the
debugger.
2) If not, then edit one of the existing *.fdbg files or create a new
file called somename.fdbg - if you think the existing ones don't satisfy
your needs. Just add the names of the structs you are interested in. If
you want only certain members of the structs to be printed then add the
member names and the format wanted below the struct name. Look at the
*.fdbg files to see how this is done. Remember to check in to SCCS.
3) Add the somename file where the struct is defined to the Makefile
4) Now do a "make". Look in the file forthdebug to see if words for
your structs have been created. If not, go back to step 2.
5) Install(1) will pick up forthdebug and install in kernel/misc
Ques: How do I add forth words?
Ans: In the .fdbg file - of your choice - type in the following
forth_start
type words here
forth_end
All lines between the forth_start and forth_end will be
copied over to the forthdebug file without any modifications.
Ques: How do I run it?
Ans: Here is a sample session. Comments are in ()s.
ok kdbg-words
( enter the debugger )
ok words
( list debugging words available )
( not all these are in the gate yet, but the most-requested
( .threadlist is )
( the printing words start with '.' e.g. .thread .tte )
( I will move the non-printing words to a separate vocabulary )
( soon )
.machcpu machcpu-words .intr_vector intr_vector-words
.tte tte-words .sfmmu sfmmu-words
.sf_hment sf_hment-words .hmehash_bucket
hmehash_bucket-words .hme_blk hme_blk-words .ctx
ctx-words .threadlist .stacktrace i7 i6
i5 i4 i3 i2 i1
i0 l7 l6 l5 l4
l3 l2 l1 l0 i7x
i6x i5x i4x i3x i2x
i1x i0x l7x l6x l5x
l4x l3x l2x l1x l0x
v9bias .lwp .thread ._kthread
_kthread-words .memlistlist .memlist
memlist-words ._klwp _klwp-words .mstate
mstate-words .k_siginfo k_siginfo-words
.kmem_cache kmem_cache-words .kmem_slab
kmem_slab-words .hment hment-words .hat
hat-words .dev_info dev_info-words .cred
cred-words .cpulist .cpun .cpu
cpu-words .callout callout-words .buf
buf-words .as as-words .rwlock .label
.disp .mutex ._rwlock_impl _rwlock_impl-words
._label_t
_label_t-words .itimerval itimerval-words
.timeval timeval-words ._disp _disp-words
.adaptive_mutex adaptive_mutex-words .dev_t
c-struct bits-field array-field struct-field
ptr-field byte-field short-field long-field
ext-field voc-print name-print 0plevel -plevel
+plevel plevel sizeof index print
.str .o another? next-word
ok .threadlist
( .threadlist prints threads 1 page at a time )
( try that with kadb )
thread e0402000 pc: e0094e98 sp: e0401aa8
call e008b254 genunix:main from e00069d8 _start+108
( 0 2 3c 2 e0428290 e0411840 )
call e00531a0 krtld:exitto from e0053e84 krtld:kobj_init+128
( e00068d0 e0425400 e04604f0 e0425000 e005829c e0437800 )
thread e0891ec0 free
thread e0895ec0 free
thread e0899ec0 free
thread e089dec0 free
thread e08a1ec0 free
thread e08a5ec0 free
thread e08a9ec0 free
thread e08adec0 free
thread e08b1ec0 free
thread e08b9ec0 pc: e002ec3c sp: e08b9e00
jmpl e00074b0 client_handler+38 from e001ef80 thread_start+4
( e0423c00 0 e0428290 e0428290 0 e0423c48 )
???? from e002ebfc idle
( 0 0 0 0 0 0 )
thread e08bdec0 pc: e005dd9c sp: e08bdda0
call e005dd38 genunix:cv_wait from e006bdd4 genunix:callout_thread+1c
( e045d890 e045d890 80000000 e045da3c e045da3c e045da3c )
jmpl e00074b0 client_handler+38 from e001ef80 thread_start+4
( 0 0 e0428290 e0428290 e045d8a4 e045d890 )
???? from e006bdb8 genunix:callout_thread
( 0 0 0 0 0 0 )
thread e08c1ec0 pc: e005dd9c sp: e08c1da0
call e005dd38 genunix:cv_wait from e006bdd4 genunix:callout_thread+1c
( e045d890 e045d890 80000000 e045db68 e045db68 e045db68 )
jmpl e00074b0 client_handler+38 from e001ef80 thread_start+4
( 0 0 e0428290 e0428290 e045d8a4 e045d890 )
???? from e006bdb8 genunix:callout_thread
( 0 0 0 0 0 0 )
thread e08c5ec0 free
thread e08cbec0 pc: e005dd9c sp: e08cbd90
call e005dd38 genunix:cv_wait from e00b9c24 genunix:background+158
( e046000c e046000c 0 10000 0 0 )
jmpl e00074b0 client_handler+38 from e001ef80 thread_start+4
( 0 fffffffe 10000 fc408734 0 e046000c )
???? from e00b9acc genunix:background
( 0 0 0 0 0 0 )
thread e08d1ec0 pc: e005dd9c sp: e08d1d90
call e005dd38 genunix:cv_wait from e00b9d8c genunix:freebs+c8
( e045f040 e045f040 2 e044dca0 2 0 )
jmpl e00074b0 client_handler+38 from e001ef80 thread_start+4
( e044dca8 e045fd1c e0428290 e045fe04 0 e045f040 )
???? from e00b9cc4 genunix:freebs
( 0 0 0 0 0 0 )
thread e08d7ec0 pc: e005dd9c sp: e08d7d90
call e005dd38 genunix:cv_wait from e00bdb08 genunix:qwriter_outer_thread+c4
( e045f078 e045f078 0 e044f4b8 e00080f0 fc14b580 )
jmpl e00074b0 client_handler+38 from e001ef80 thread_start+4
( e044f4bc 0 e045c2d8 0 e045f078 0 )
???? from e00bda44 genunix:qwriter_outer_thread
( 0 0 0 0 0 0 )
thread e08dbec0 pc: e005dd9c sp: e08dbd40
call e005dd38 genunix:cv_wait from fc2620f4 ufs:ufs_thread_run+6c
( fc13ca78 fc13ca78 0 456 0 fc14b5a8 )
call fc262088 ufs:ufs_thread_run from fc262868 ufs:ufs_thread_idle+1c
( fc13ca64 fffd fc13ca78 fc13ca68 fc13ca72 fc13ca70 )
jmpl e00074b0 client_handler+38 from e001ef80 thread_start+4
( 0 fc13ca64 fc13ca78 e0428290 0 0 )
???? from fc26284c ufs:ufs_thread_idle
( 0 0 7b60c 0 239b8 7b609 )
thread e08dfec0 pc: e005dd9c sp: e08dfd40
call e005dd38 genunix:cv_wait from fc2620f4 ufs:ufs_thread_run+6c
( fc13caf0 fc13caf0 0 1 0 ffffffd8 )
call fc262088 ufs:ufs_thread_run from fc262ccc ufs:ufs_thread_hlock+20
( fc13cadc fffd fc13caf0 fc13cae0 fc13caea fc13cae8 )
jmpl e00074b0 client_handler+38 from e001ef80 thread_start+4
( 0 0 fc13cadc fc13caea fc13caf0 0 )
???? from fc262cac ufs:ufs_thread_hlock
( 0 0 0 32540 16a09 0 )
thread e08e3ec0 pc: e005dd9c sp: e08e3d80
call e005dd38 genunix:cv_wait from fc30236c esp:esp_callback+1e4
( fc14b66c fc14b66c 2 19 fc14b674 0 )
jmpl e00074b0 client_handler+38 from e001ef80 thread_start+4
( 0 fc14b682 0 1 0 0 )
???? from fc302188 esp:esp_callback
( fc17f008 0 78278 c3c09 0 78284 )
thread fc44b480 pc: e005e4b0 sp: e0a1b7d0
call e005e358 genunix:cv_wait_sig_swap from e00b896c genunix:strwaitq+280
( 0 fc40b6e4 fc5eb028 0 fc44ee20 fc44b480 )
call e00b86ec genunix:strwaitq from e00b36d0 genunix:strgetmsg+2a8
( fc40b698 fc408246 0 3 e0a1b9b0 fc408200 )
call e00b3428 genunix:strgetmsg from e00a6508 genunix:msgio+254
( 0 e0a1ba18 0 fc40b6a8 fc40b6e4 0 )
call e00a62b4 genunix:msgio from e00a60d8 genunix:getmsg+88
( e0a1ba90 e0a1bb10 1 e0a1baab e0a1baac fc3209dc )
jmpl 0 from e00656c8 genunix:syscall_ap+70
( fc44ee88 e0a1bb10 0 0 e043e9c4 0 )
jmpl ffbf0000 from e0025824 syscall_trap+194
( 3 0 dffffd88 dffffd68 e00a6050 fc44ee20 )
XXXXXXX from df7876a4
( 3 dffffd7c dffffd88 dffffd68 84 27b18 )
thread fc44b5c0 pc: e005e4b0 sp: e0a17980
call e005e358 genunix:cv_wait_sig_swap from e00903e8 genunix:poll+cb8
( 0 fc14a950 fc5eb698 800 fc44f008 fc44b5c0 )
( at this point I got bored )
( and printed a single thread )
ok fc44b480 .thread
t_ts = NULL
t_prioinv = NULL
t_rprof = NULL
t_mstate = 9
t_waitrq = 0
t_kpri_req = 0
t_disp_time = 14976
t_disp_cpu = e0423c00
t_oldspl = 0
t_lockp = e045a310
t_pctcpu = 10
t_lbolt = 6ef
t_cred = fc19ff90
t_pollstate = NULL
t_sysnum = 85
t_whatstop = 0
t_whystop = 0
t_trace = NULL
t_prev = e08e3ec0
t_next = fc44b5c0
t_procp = fc5eb028
t_lwp = fc44ee20
t_back = fc44b480
t_forw = fc44b480
t_sigqueue = NULL
t_itimerid = 0
t_realitimer =
it_value =
tv_usec = 0 i = 110
disp_lock = 0
cpu_prev_onln = e0423c00
cpu_next_onln = e0423c00
cpu_prev = e0423c00
cpu_next = e0423c00
cpu_fpowner = fc44fd60
cpu_callo = NULL
cpu_lwp = NULL
cpu_pause_thread = e09fbec0
cpu_idle_thread = e08b9ec0
cpu_thread = e08b9ec0
cpu_flags = 1b
cpu_seqid = 0
cpu_id = 0
( and here's the phys installed list )
ok :phys_install l@ .memlistlist
prev = NULL
next = fc004168
size = 2000000
address = 0
prev = fc004150
next = NULL
size = 2000000
address = 10000000
NOTE: note the . (period) in front of the name of the struct. You need to add
that to the name so that it does not clash with variables with same names.
