From 2ebb3a32d4afa367712f0291b2ca517cba711529 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Tue, 27 Mar 2018 19:58:55 -0700
Subject: 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.
---
 share/txr/stdlib/asm.tl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'share')

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)
-- 
cgit v1.2.3