From 81fcdfadb2e396183ff30f6e8e6b03b7df004dc4 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Sun, 21 Jul 2013 19:41:15 +0200
Subject: implemented include

---
 compiler/elymasGlobalSys.ey | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'compiler/elymasGlobalSys.ey')

diff --git a/compiler/elymasGlobalSys.ey b/compiler/elymasGlobalSys.ey
index 9d20c35..01ca564 100644
--- a/compiler/elymasGlobalSys.ey
+++ b/compiler/elymasGlobalSys.ey
@@ -1,7 +1,24 @@
 <
   "sys" enterSubScope
 
+  <
+    # handle an identifier in the current scope according to current quote level
+    # 0 -> identifier to handle
+    [[
+      8 /r15 :subqImm8Reg
+      /r15 :popqMem
+
+      internalExecuteIdentifier /rax :movqImmReg
+      /rax :callqReg
+
+      /r15 :pushqMem
+      8 /r15 :addqImm8Reg
+      :retn
+    ]] /eyexecuteIdentifier defv
+  > _ ==globalFunctions { defv }' ::allocateOffsetStruct
+
   [
+    globalFunctions keys eydeff { | }' createScopeEntries
     createScopeExtensionEntries
   ] :execute
 
-- 
cgit v1.2.3