picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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

ppc64 continued
Diffstat:
Msrc64/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