ok see old-name

ok ' old-name (see)

ok see see
: see   
   " ["] (see) catch if    
      drop 
   then  
; 
ok see (see)
defer (see) is 
: (f0018a44)   
   40 rmargin ! dup dup (f00189c4) dup (f0018944) (f0018980) (f0018658) 
   ??cr 
; 
ok f0018a44 (see)
: (f0018a44)   
   40 rmargin ! dup dup (f00189c4) dup (f0018944) (f0018980) (f0018658) 
   ??cr 
; 

ok see dup
code dup 
f0008c98     sub         %g7, 8, %g7
f0008c9c     stx         %g4, [%g0 + %g7]
f0008ca0     ld          [%g5], %l0
f0008ca4     jmp         %l0, %g2, %g0
f0008ca8     add         %g5, 4, %g5

( -- ) 

最後に逆アセンブルを終了したところから逆アセンブルを継続します。 

( addr -- ) 

指定されたアドレスから逆アセンブルを開始します。 

( -- value ) 

指定されたグローバルレジスタの値を返します。 

( -- value ) 

指定された入力レジスタの値を返します。 

( -- value ) 

指定されたローカルレジスタの値を返します。 

( -- value ) 

指定された出力レジスタの値を返します。 

( -- value ) 

指定されたレジスタの値を返します。 

( -- value ) 

指定された浮動小数点レジスタの値を返します。 

( -- ) 

%f0 から %f31 までの値を表示します。

( -- ) 

i、 l 、 o レジスタの値を表示します。

( -- ) 

プロセッサレジスタの値を表示します。 

( window# -- ) 

w .locals と同じ。指定されたウィンドウを表示します。

( -- ) 

C サブルーチンを示す復帰スタックを表示します。 

( new-value -- ) 

%pc に new-value を、 %npc に (new-value+4) をそれぞれ設定します。

( new-value -- ) 

上記のうちの任意のレジスタに格納された値を変更します。 new-value to regname の形式で使用してください。

( window# -- ) 

現在のウィンドウを、 %ix、%lx、または %ox を表示するために設定します。

%fprs

%asi

%pstate

%tl-c

%pil

%tstate %tt

%tba

%cwp %cansave

%canrestore

%otherwin

%wstate

%cleanwin

( -- value ) 

指定されたレジスタの値を返します。 

.pstate

( -- ) 

プロセッサ状態レジスタを特定書式で表示します。 

.ver

( -- ) 

バージョンレジスタを特定書式で表示します。 

.ccr

( -- ) 

%ccr レジスタを特定書式で表示します。

.trap-registers

( -- ) 

トラップレジスタを表示します。 

( addr -- ) 

指定されたアドレスにブレークポイントを追加します。 

( addr -- ) 

指定されたアドレスからブレークポイントを削除します。 

( -- )  

最後に設定されたブレークポイントを削除します。 

( -- ) 

現在設定されているすべてのブレークポイントを表示します。 

( -- ) 

ブレークポイントが発生したときに、指定された処理を実行します。このワードは、実行させたい任意の処理を実行するように変更できます。たとえば、ブレークポイントごとにレジスタを表示するには、 ['] .registers to .breakpoint と入力します。デフォルト処理は .instruction です。複数の処理を実行させるには、実行させたいすべての処理を呼び出す 1 つの定義を作成し、次にそのワードを .breakpoint に読み込みます。

( -- ) 

最後に現れたブレークポイントのアドレスとオペコードを表示します。 

( -- ) 

シングルステップで実行になったときに指定された処理を実行します (.breakpoint を参照)。

( -- ) 

すべてのブレークポイントを削除します。 

( -- ) 

このループの終わりまで実行します。 

( -- ) 

ブレークポイントから処理を継続します。これを利用して、 go を発行する前にプロセッサのプログラムカウンタを設定することにより、任意のアドレスに移ることができます。

( n -- ) 

go を n 回実行します。

( -- ) 

(step コマンドに似ています。) サブルーチン呼び出しを 1 つの命令として取り扱います。

( n -- ) 

hop を n 回実行します。

( -- ) 

このサブルーチンの終わりまで実行します。 

( -- )  

このリーフサブルーチンの終わりまで実行します。 

( -- ) 

現在の命令をスキップします (実行しません)。 

( -- ) 

1 命令を 1 つずつ実行します。 

( n -- ) 

step を n 回実行します。

( addr -- ) 

指定されたアドレスが現れるまで実行します。+bp go と等価です。

"Continue (継続)"。シングルステップ実行からトレースに切り替え、デバッグ中のワードの実行の残り部分をトレースします。 

"Down a level ( 1 レベルダウン)"。今表示された名前のワードをデバッグ対象としてマークし、次にそのワードを実行します。 

"Up a level ( 1 レベルアップ)"。デバッグ中のワードからデバッグ対象のマークを取り消します。その呼び出し元をデバッグ対象としてマークし、それまでデバッグされていたワードの実行を終了します。 

下位の Forth インタプリタを起動します。通常はこのインタプリタで Forth コマンドを実行できます。このインタプリタが ( resume ) で終了されると、制御がデバッガの f コマンドが実行された位置に戻ります。

"Go"。デバッガをオフに設定し、プログラムの実行を継続します。 

"Quit (終了)"。デバッグ中のワードとそのすべての呼び出し元の実行を強制終了させ、制御をコマンドインタプリタに戻します。 

"see"。デバッグ中のワードを逆アセンブルします。 

スタックの一番上の address,len をテキスト文字列として表示します。 

"Help"。シンボリックデバッガのマニュアルを表示します。 

"Short Help"。簡略なシンボリックデバッガのマニュアルを表示します。 

指定された Forth ワードをデバッグ対象としてマークします。以降は、name を実行しようとするたびに、必ず Forth ソースレベルデバッガを起動します。 debug の実行後は、 debug-off でデバッグがオフされるまではシステムの実行速度が落ちることがあります。 ( . などの基本 Forth ワードはデバッグしないでください。)

(debug は、入力ストリームから名前を取り出すのでなく、スタックから実行トークンを取り出す点を除いて debug と同じです。

Forth ソースレベルデバッガをオフにします。以降、ワードのデバッグは行われません。 

下位インタプリタを終了し、制御をデバッガのステップ実行に戻します (この表の f コマンドを参照)。

Forth ソースレベルデバッガを "シングルステップ (実行) モード" に設定し、デバッグ中のワードを 1 ステップずつ対話的に実行できるようにします。シングルステップモードはデフォルトです。 

Forth ソースレベルデバッガを "トレースモード" に設定します。このモードは、デバッグ中のワードの実行をトレースし、その間そのワードが呼び出す各ワードの名前とスタックの内容を表示します。 

今表示されたワードを実行し、次のワードのデバッグに移ります。 

ok : patch-me  test 0 do  i . cr  loop ;
ok patch 555 test patch-me
ok see patch-me
: patch-me
	h# 555 0 do
		i . cr
	loop
;

ok : patch-me2  dup dup dup ( This third dup should be drop) ;
ok : xx dup ;
ok patch xx dup patch-me2
ok patch xx dup patch-me2
ok patch drop dup patch-me2
ok see patch-me2
: patch-me2
	xx xx drop
;

ok : foo good bad unneeded ;

ok : right this that exit ;
ok patch right bad foo 

ok : right this that ;
ok patch right bad foo 
ok patch exit unneeded foo 

ok see patch-me
: patch-me
	h# 555 0 do
		i . cr
	loop
;
ok ["] test false 555 true ["] patch-me (patch)
ok see patch-me
: patch-me
	test 0 do
		i . cr
	loop
;

ok : test1 1 ! ; 
ok : test2 1 test1 ; 
ok test2 
Memory address not aligned
ok ftrace 
! 		 Called from test1 	at ffeacc5c
test1 		 Called from test2 	at ffeacc6a
(ffe8b574) 	Called from (interpret 	at ffe8b6f8
execute 			Called from catch 	at ffe8a8ba
	ffefeff0
	0	
	ffefebdc
catch 			 Called from (fload) 	at ffe8ced8
	0
(fload) 			Called from interact 	at ffe8cf74
execute 	Called from catch 	at ffe8a8ba
	ffefefd4
	0		
	ffefebdc
catch 		Called from (quit 	at ffe8cf98