picolisp

commit dba00c75b03ce584ac99c27c3956f48e791c5957
parent e4204ea591b661ea6155309d954393543719c82b
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 19 Apr 2011 07:29:56 +0200

Minor: Wrong 'errno' size
Diffstat:
M
src64/arch/x86-64.l
 | 
4
++--
M
src64/sys/x86-64.linux.code.l
 | 
7
++++---

2 files changed, 6 insertions(+), 5 deletions(-)
diff --git a/src64/arch/x86-64.l b/src64/arch/x86-64.l
@@ -1,4 +1,4 @@
-# 05apr11abu
+# 19apr11abu
 # (c) Software Lab. Alexander Burger
 
 # Byte order
@@ -235,7 +235,7 @@
    (prinst "movzwq" (src Src S) "%rax") )
 
 (asm ld4 (Src S)
-   (prinst "movl" (src Src S) "%eax") )  # Clears upper word of %rax
+   (prinst "mov" (src Src S) "%eax") )  # Clears upper word of %rax
 
 (de _cmov (Cmd Jmp)
    (setq Dst (dst Dst D)  Src (src Src S))
diff --git a/src64/sys/x86-64.linux.code.l b/src64/sys/x86-64.linux.code.l
@@ -1,15 +1,16 @@
-# 19may10abu
+# 19apr11abu
 # (c) Software Lab. Alexander Burger
 
 # System macros
 (code 'errno_A 0)
    call __errno_location  # Get address of 'errno'
-   ld A (A)  # Load value
+   ld4 (A)  # Load value
    ret
 
 (code 'errnoC 0)
    call __errno_location  # Get address of 'errno'
-   ld (A) C  # Store new value
+   xchg A C
+   st4 (C)  # Store new value
    ret
 
 (code 's_isdirS_F 0)  # S_ISDIR