From 2bd86cd07103e1386ab2816f680954ff21f3043f Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Thu, 14 Mar 2013 23:06:59 +0100
Subject: Added "quoted" function

---
 compiler/elymasGlobal.ey | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'compiler')

diff --git a/compiler/elymasGlobal.ey b/compiler/elymasGlobal.ey
index 77015a0..06a2b4c 100644
--- a/compiler/elymasGlobal.ey
+++ b/compiler/elymasGlobal.ey
@@ -835,6 +835,26 @@
       /rbx :pushqReg
       :retn
     ] /eydie defv
+    
+    # determine current quoting mode
+    # 0 <- an integer giving the current quoting level
+    [[
+      /rbx :popqReg
+
+      # allocate result int
+      16 /rdi :movqImmReg
+      ::internalAllocate /rax :movqImmReg
+      /rax :callqReg
+      # and push to stack
+      /rax :pushqReg
+
+      ::currentQuoted /rcx :movqImmReg
+      /rcx /rcx :movqMemReg
+      /rcx 8 /rax :movqRegMemDisp8
+
+      /rbx :pushqReg
+      :retn
+    ]] /eyquoted defv
   > _ ==globalFunctions { defv }' ::allocateOffsetStruct
 
   <
-- 
cgit v1.2.3