picolisp

commit 76bbc62b25ca689ed07814b84912cc91b843018f
parent ac00e263278bd597d2f5e51c3a5aee4f3e4b8f6d
Author: Alexander Burger <abu@software-lab.de>
Date:   Sun,  8 Apr 2012 11:22:26 +0200

Minor: Changed 'fix' -> 'fnum'
Diffstat:
M
doc64/asm
 | 
4
++--
M
src64/arch/ppc64.l
 | 
4
++--
M
src64/arch/x86-64.l
 | 
4
++--
M
src64/lib/asm.l
 | 
4
++--
M
src64/main.l
 | 
4
++--

5 files changed, 10 insertions(+), 10 deletions(-)
diff --git a/doc64/asm b/doc64/asm
@@ -1,4 +1,4 @@
-# 27dec11abu
+# 08apr12abu
 # (c) Software Lab. Alexander Burger
 
 
@@ -166,7 +166,7 @@
       cc adr reg        # C-Call to 'adr' with end of stacked args in 'reg'
       dval              # Set up double value pointed to by 'C'
       fval              # Set up float value pointed to by 'C'
-      fix               # Convert double with scale 'E' to fixnum in 'E'
+      fnum              # Convert double with scale 'E' to fixnum in 'E'
 
       ret               # Return
       begin             # Called from foreign function
diff --git a/src64/arch/ppc64.l b/src64/arch/ppc64.l
@@ -1,4 +1,4 @@
-# 19jan12abu
+# 08apr12abu
 # (c) Software Lab. Alexander Burger
 
 # Byte order
@@ -1041,7 +1041,7 @@
 (asm fval ()
    (prinst "lfs" 1 "0(14)") )
 
-(asm fix ()
+(asm fnum ()
    (prinst "srdi" 0 15 4)  # Normalize scale (ignore sign)
    (prinst "std" 0 "-8(1)")
    (prinst "lfd" 0 "-8(1)")  # Get scale in f13
diff --git a/src64/arch/x86-64.l b/src64/arch/x86-64.l
@@ -1,4 +1,4 @@
-# 27apr11abu
+# 08apr12abu
 # (c) Software Lab. Alexander Burger
 
 # Byte order
@@ -585,7 +585,7 @@
 (asm fval ()
    (prinst "movss" "(%rdx)" "%xmm0") )
 
-(asm fix ()
+(asm fnum ()
    (prinst "shr" "$4" "%rbx")                # Normalize scale
    (prinst "jc" "1f")                        # Jump if negative
    (prinst "cvtsi2sd" "%rbx" "%xmm7")        # Mulitply double with scale
diff --git a/src64/lib/asm.l b/src64/lib/asm.l
@@ -1,4 +1,4 @@
-# 19jan12abu
+# 08apr12abu
 # (c) Software Lab. Alexander Burger
 
 # *LittleEndian *AlignedCode *Registers optimize
@@ -436,7 +436,7 @@
       (eval+)
       (eval/ret)
       (exec (reg (read)))
-      (fix)
+      (fnum)
       (fval)
       (hx2 (read))
       (inc (destination) "*Mode")
diff --git a/src64/main.l b/src64/main.l
@@ -1,4 +1,4 @@
-# 18mar12abu
+# 08apr12abu
 # (c) Software Lab. Alexander Burger
 
 (code 'Code)
@@ -1675,7 +1675,7 @@
                add C 4  # Size of float
             end
          end
-         fix  # Get fixpoint number or flg
+         fnum  # Get fixpoint number or flg
       else
          cmp E ISym  # 'I'?
          if eq  # Yes