各レジスタがスタックを持つようにしてpopやpushはそのスタックを使用するように修正する． ;; make-registerがstackを持つ (define (make-register name) (let ((contents '*unassaigned*) (stack (make-stack))) ;;(make-stack) (define (dispatch message…

;;; stackに退避するときにレジスタを指定しておき，そのレジスタにresotre出来るように修正する． (define (make-restore inst machine stack pc) (let ((reg (get-register machine (stack-inst-reg-name inst)))) (lambda () (let ((val (pop stack))) ;;…

図5.12のfibonacci計算から1命令除去する． ;;; ex5.06で変更したこれを使う． (controller (assign continue (label fib-done)) fib-loop (test (op <) (reg n) (const 2)) (branch (label immediate-answer)) (save continue) (assign continue (label aft…