diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-03-27 19:58:55 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-03-27 19:58:55 -0700 |
| commit | 2ebb3a32d4afa367712f0291b2ca517cba711529 (patch) | |
| tree | 1efe94cb89e7e491e18b94333b100252352339fa /share | |
| parent | 5e57a1502ec05156d4455b91e452b38c0dc482b4 (diff) | |
| download | txr-2ebb3a32d4afa367712f0291b2ca517cba711529.tar.gz txr-2ebb3a32d4afa367712f0291b2ca517cba711529.tar.bz2 txr-2ebb3a32d4afa367712f0291b2ca517cba711529.zip | |
vm/asm: new prof instruction.
* share/txr/stdlib/asm.tl (prof): New opcode.
(op-prof): New opcode class.
* vm.c (vm_prof_callback, vm_prof): New static functions.
(vm_execute): Handle PROF opcode via vm_prof.
* vmop.h: Regenerated.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/asm.tl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index bba50b39..0b2efb69 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -351,6 +351,8 @@ (defopcode-derived op-fin fin auto op-end) +(defopcode-derived op-prof prof auto op-fin) + (defopcode op-call call auto (:method asm (me asm syntax) me.(chk-arg-count-min 2 syntax) |