vm: strip out call-counting profiler

[factor.git] / vm / code_blocks.hpp

diff --git a/vm/code_blocks.hpp b/vm/code_blocks.hpp
index cd7d1ea5ae28511b6990a918646a514859b5f470..c0f076836bbb406f132054f4fc3ed75fde959c29 100644 (file)
--- a/vm/code_blocks.hpp
+++ b/vm/code_blocks.hpp
@@ -84,4 +84,17 @@ struct code_block
 };
 
 VM_C_API void undefined_symbol(void);
+
+inline code_block *word::code() const {
+       assert(entry_point != NULL);
+       return (code_block*)entry_point - 1;
+}
+
+inline code_block *quotation::code() const {
+       assert(entry_point != NULL);
+       return (code_block*)entry_point - 1;
 }
+
+}
+
+