mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

instruction tracing tweak

Browse source 
* module/system/vm/trace.scm (vm-trace): No need to output the opcode
  number, and display the ip as a decimal, not a hexidecimal.
This commit is contained in:
Andy Wingo 2010-09-16 13:04:57 +02:00
parent 839eb61cde
commit 8d033f4839
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/system/vm/trace.scm
View file

@ -89,9 +89,8 @@
(let* ((ip (frame-instruction-pointer frame))
(objcode (program-objcode (frame-procedure frame)))
(opcode (bytevector-u8-ref (objcode->bytecode objcode)
(+ ip *objcode-header-len*)))
(inst (opcode->instruction opcode)))
(format #t "0x~8X: ~a: ~a\n" ip opcode inst))))
(+ ip *objcode-header-len*))))
(format #t "~8d: ~a\n" ip (opcode->instruction opcode)))))
(define (vm-trace-on!)
(if calls?