picolisp

commit e969ce18274febe348b41427095f2e9cbb398791
parent 6090f7ba4f7b1e3db4a934e4d4f6f736861a7d15
Author: Alexander Burger <abu@software-lab.de>
Date:   Thu,  8 Sep 2011 17:44:25 +0200

More changes to preliminary 64-bit OpenBSD support
Diffstat:
M
src64/sys/x86-64.openBsd.code.l
 | 
20
++++++++++----------
M
src64/sys/x86-64.openBsd.defs.l
 | 
6
+++---

2 files changed, 13 insertions(+), 13 deletions(-)
diff --git a/src64/sys/x86-64.openBsd.code.l b/src64/sys/x86-64.openBsd.code.l
@@ -1,4 +1,4 @@
-# 27aug11abu
+# 07sep11abu
 # Amit Kulkarni <amitkulz@gmail.com>
 # (c) Software Lab. Alexander Burger
 
@@ -21,21 +21,21 @@
    ret
 
 (code 'wifstoppedS_F 0)  # WIFSTOPPED
-   ld A 0
-   cc WIFSTOPPED((S I))  # Get status
-   nul4
+   ld A (S I)  # Get status
+   cmp B `(hex "7F")  # (((status) & 0xff) == 0x7f)
    ret
 
 (code 'wifsignaledS_F 0)  # WIFSIGNALED
-   ld A 0
-   cc WIFSIGNALED((S I))  # Get status
-   nul4
+   ld A (S I)  # Get status
+   and B `(hex "7F")  # (((status) & 0x7f) + 1) >> 1) > 0)
+   inc B
+   shr B 1
    ret
 
 (code 'wtermsigS_A 0)  # WTERMSIG
-   ld A 0
-   cc WTERMSIG((S I))  # Get status
-   nul4
+   ld A (S I)  # Get status
+   and B `(hex "7F")  # ((status) & 0x7f)
+   zxt
    ret
 
 # vi:et:ts=3:sw=3
diff --git a/src64/sys/x86-64.openBsd.defs.l b/src64/sys/x86-64.openBsd.defs.l
@@ -1,4 +1,4 @@
-# 06sep11abu
+# 07sep11abu
 # Amit Kulkarni <amitkulz@gmail.com>
 # (c) Software Lab. Alexander Burger
 
@@ -28,8 +28,8 @@
 (equ PIPE_BUF 512)
 
 (equ stdin  "$__sF")
-(equ stdout "$__sF+128")
-(equ stderr "$__sF+256")
+(equ stdout "$__sF+152")
+(equ stderr "$__sF+304")
 
 (equ MAXPATHLEN 1024)