From 20efe1efeb3c62b884ccc16fd77e3b4c430c3ed9 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Wed, 4 Sep 2013 00:30:15 +0200
Subject: buffered polling tcp/ip server

---
 compiler/elymasGlobalSysAsm.ey | 13 +++++++++++++
 compiler/standard.ey           |  3 ++-
 2 files changed, 15 insertions(+), 1 deletion(-)

(limited to 'compiler')

diff --git a/compiler/elymasGlobalSysAsm.ey b/compiler/elymasGlobalSysAsm.ey
index 8a5499c..e9c1ad5 100644
--- a/compiler/elymasGlobalSysAsm.ey
+++ b/compiler/elymasGlobalSysAsm.ey
@@ -200,6 +200,19 @@
       :retn
     ]] /eyrawAddress defv
 
+    # generate object from raw object
+    # 0 -> address of the object
+    # 0 <- object
+    [[
+      /rbx :popqReg
+      
+      /rax :popqReg
+      8 /rax :pushqMemDisp8 # push integer value
+
+      /rbx :pushqReg
+      :retn
+    ]] /eyrawObject defv
+
     # get raw code execution address from function object
     # 0 -> function object
     # 0 <- address of first instruction
diff --git a/compiler/standard.ey b/compiler/standard.ey
index f440fb0..006414e 100644
--- a/compiler/standard.ey
+++ b/compiler/standard.ey
@@ -12,7 +12,8 @@
 } "}_" defq
 
 {
-  { -01 < ==o { o -01 . } > -12 deffst }" quoted { }" { * }" ? *
+  { -01 < ==o { o -01 . } > -12 }" quoted { }" { * }" ? *
+  quoted { |deffst } { deffst }" ? *
 }" /via defq
 
 { -1110 ; ==f =*a len _
-- 
cgit v1.2.3