picolisp

commit 53e95a9e1c6f9e74619364555acc526cd6e58e4d
parent fd8b5c9b81028d7050f2b6673aa958a1593cf237
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 22 Apr 2011 19:59:06 +0200

ppc64 continued
Diffstat:
M
src64/sys/ppc64.linux.code.l
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src64/sys/ppc64.linux.code.l b/src64/sys/ppc64.linux.code.l
@@ -1,4 +1,4 @@
-# 16apr11abu
+# 22apr11abu
 # (c) Software Lab. Alexander Burger
 
 # System macros
@@ -20,19 +20,19 @@
    ret
 
 (code 'wifstoppedS_F 0)  # WIFSTOPPED
-   ld A (S I)  # Get status
+   ld4 (S I)  # Get status
    cmp B `(hex "7F")  # (((status) & 0xff) == 0x7f)
    ret
 
 (code 'wifsignaledS_F 0)  # WIFSIGNALED
-   ld A (S I)  # Get status
+   ld4 (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 (S I)  # Get status
+   ld4 (S I)  # Get status
    and B `(hex "7F")  # ((status) & 0x7f)
    zxt
    ret