From eec6b912bd39d2fa2ba6555521e913490875d6d9 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Wed, 27 Aug 2014 19:22:53 +0200
Subject: Can now pass O_TRUNC

---
 compiler/standardClient.ey | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/standardClient.ey b/compiler/standardClient.ey
index d55c23e..c842b84 100644
--- a/compiler/standardClient.ey
+++ b/compiler/standardClient.ey
@@ -390,6 +390,7 @@
       bor bor ==:RWMASK
 
   64 ==:OCREAT
+  512 ==:OTRUNC
   1024 ==:OAPPEND
 
   1 ==:PROTREAD
@@ -419,6 +420,8 @@
       { flags RWMASK bnot band RDWR bor =flags } /readwrite deff
       { flags OCREAT bor =flags } /creating deff
       { flags OAPPEND bor =flags } /appending deff
+      { flags OTRUNC bor =flags } /truncating deff
+
       { ==path
         fd 0 ge { "file already open" die } rep 
         path "\0" cat flags mode 0 0 0 OPEN sys .asm .syscall -- _ =fd
-- 
cgit v1.2.3