commit 887a6a3395457c6b339d78d45a8f9662a2ff300f
parent ad1140e51b7eb3394b7429ea06d150d93ebb0c8a
Author: Alexander Burger <abu@software-lab.de>
Date: Sat, 26 Feb 2011 19:07:57 +0100
Minor cosmetics
Diffstat:
6 files changed, 45 insertions(+), 45 deletions(-)
diff --git a/src64/big.l b/src64/big.l
@@ -1,4 +1,4 @@
-# 23jan11abu
+# 26feb11abu
# (c) Software Lab. Alexander Burger
### Destructive primitives ###
@@ -1704,7 +1704,7 @@
end
sub A (char "0") # First digit
cmp A 10 # Too big?
- jnc 99 # Return NO
+ jge 99 # Return NO
shl A 4 # Make short number
or A CNT
ld (L I) A # Save
@@ -1717,7 +1717,7 @@
if z # No
sub A (char "0") # Next digit
cmp A 10 # Too big?
- jnc 99 # Return NO
+ jge 99 # Return NO
cmp A 5 # Round?
if ge # Yes
ld A ONE # Increment
@@ -1732,7 +1732,7 @@
while nz # Yes
sub A (char "0") # Next digit
cmp A 10 # Too big?
- jnc 99 # Return NO
+ jge 99 # Return NO
loop
break T
end
@@ -1747,7 +1747,7 @@
if ne # No
sub A (char "0") # Next digit
cmp A 10 # Too big?
- jnc 99 # Return NO
+ jge 99 # Return NO
push C # Save symByte args
push X
push A # Save digit
@@ -1861,7 +1861,7 @@
add A C # Add BCD-Carry
ld C 0 # Clear BCD-Carry
cmp A 1000000000000000000 # BCD overflow?
- if nc # Yes
+ if ge # Yes
sub A 1000000000000000000
ld C 1 # Set BCD-Carry
end
@@ -1885,7 +1885,7 @@
add A C # Add BCD-Carry
ld C 0 # Clear BCD-Carry
cmp A 1000000000000000000 # BCD overflow?
- if nc # Yes
+ if ge # Yes
sub A 1000000000000000000
ld C 1 # Set BCD-Carry
end
@@ -2776,7 +2776,7 @@
ld A (E DIG) # Get digit
and A (C DIG) # Match?
cmp A (C DIG)
- jnz 10 # No: Return NIL
+ jne 10 # No: Return NIL
ld C (C BIG)
ld E (E BIG)
loop
@@ -2825,7 +2825,7 @@
ld E (Y)
eval # Eval next arg
cmp E Nil
- jz 10 # Abort if NIL
+ jeq 10 # Abort if NIL
num E # Number?
jz numErrEX # No
off E SIGN # Clear sign
@@ -2865,7 +2865,7 @@
ld E (Y)
eval # Eval next arg
cmp E Nil
- jz 10 # Abort if NIL
+ jeq 10 # Abort if NIL
num E # Number?
jz numErrEX # No
off E SIGN # Clear sign
@@ -2905,7 +2905,7 @@
ld E (Y)
eval # Eval next arg
cmp E Nil
- jz 10 # Abort if NIL
+ jeq 10 # Abort if NIL
num E # Number?
jz numErrEX # No
off E SIGN # Clear sign
diff --git a/src64/err.l b/src64/err.l
@@ -1,4 +1,4 @@
-# 16feb11abu
+# 26feb11abu
# (c) Software Lab. Alexander Burger
# Debug print routine
@@ -319,9 +319,9 @@
sym A
jz symErrAX
cmp A Nil # A < NIL ?
- jc ret # Yes
+ jlt ret # Yes
cmp A TSym # A > T ?
- jncz Ret # Yes
+ jgt Ret # Yes
ld E A
jmp protErrEX
@@ -331,18 +331,18 @@
sym E
jz symErrEX
cmp E Nil # E < NIL ?
- jc ret # Yes
+ jlt ret # Yes
cmp E TSym # E > T ?
- jncz Ret # Yes
+ jgt Ret # Yes
jmp protErrEX
(code 'needVarAX 0)
num A # Need variable
jnz varErrAX
cmp A Nil # A < NIL ?
- jc ret # Yes
+ jlt ret # Yes
cmp A TSym # A > T ?
- jncz Ret # Yes
+ jgt Ret # Yes
ld E A
jmp protErrEX
@@ -350,32 +350,32 @@
num E # Need variable
jnz varErrEX
cmp E Nil # E < NIL ?
- jc ret # Yes
+ jlt ret # Yes
cmp E TSym # E > T ?
- jncz Ret # Yes
+ jgt Ret # Yes
jmp protErrEX
(code 'checkVarAX 0)
cmp A Nil # A < NIL ?
- jc ret # Yes
+ jlt ret # Yes
cmp A TSym # A > T ?
- jncz Ret # Yes
+ jgt Ret # Yes
ld E A
jmp protErrEX
(code 'checkVarYX 0)
cmp Y Nil # Y < NIL ?
- jc ret # Yes
+ jlt ret # Yes
cmp Y TSym # Y > T ?
- jncz Ret # Yes
+ jgt Ret # Yes
ld E Y
jmp protErrEX
(code 'checkVarEX 0)
cmp E Nil # E < NIL ?
- jc ret # Yes
+ jlt ret # Yes
cmp E TSym # E > T ?
- jncz Ret # Yes
+ jgt Ret # Yes
(code 'protErrEX)
ld Y ProtErr
jmp errEXYZ
diff --git a/src64/flow.l b/src64/flow.l
@@ -1,4 +1,4 @@
-# 25feb11abu
+# 26feb11abu
# (c) Software Lab. Alexander Burger
(code 'redefMsgEC)
@@ -1971,7 +1971,7 @@
while z # Yes
ld C ((X)) # Item(s) in C
cmp C TSym # Catch-all?
- jz 10 # Yes
+ jeq 10 # Yes
ld A (At) # Equal to argument item?
ld E C
call equalAE_F
@@ -2021,10 +2021,10 @@
ld X (Y) # Get clause in X
ld E (X) # Get sym|lst in E
cmp E TSym # T?
- jz 10 # Yes
+ jeq 10 # Yes
ld A ((L I)) # 'var's value
cmp A E # Same?
- jz 10 # Yes
+ jeq 10 # Yes
do # 'memq'
atom E # List?
while z # Yes
@@ -2501,9 +2501,9 @@
null C # Any?
jz throwErrZX # No
cmp (C I) TSym # Catch-all?
- while nz # No
+ while ne # No
cmp Z (C I) # Found tag?
- while nz # No
+ while ne # No
ld C (C) # Next frame
loop
push E # Save thrown value
diff --git a/src64/io.l b/src64/io.l
@@ -1,4 +1,4 @@
-# 05feb11abu
+# 26feb11abu
# (c) Software Lab. Alexander Burger
# Close file descriptor
@@ -1511,7 +1511,7 @@
ld (Y I) A # Store 'fd'
shl A 3 # Vector index
cmp A (OutFDs) # 'fd' >= 'OutFDs'?
- jnc badFdErrEX # Yes
+ jge badFdErrEX # Yes
add A (OutFiles) # Get vector
ld A (A) # Slot?
null A # Any?
diff --git a/src64/main.l b/src64/main.l
@@ -1,4 +1,4 @@
-# 21feb11abu
+# 26feb11abu
# (c) Software Lab. Alexander Burger
### Global return labels ###
@@ -784,7 +784,7 @@
### Comparisons ###
(code 'equalAE_F 0)
cmp A E # Pointer-equal?
- jz ret # Yes: 'eq'
+ jeq ret # Yes: 'eq'
cnt A # A short?
jnz ret # Yes: 'ne'
big A # A big?
@@ -911,7 +911,7 @@
(code 'compareAE_F 0) # C
cmp A E # Pointer-equal?
- jz ret # Yes
+ jeq ret # Yes
cmp A Nil
if eq # [NIL E]
10 or B B # nz
@@ -929,7 +929,7 @@
num E # Both?
jnz cmpNumAE_F # [<num> <num>]
cmp E Nil
- jz 30 # [<num> NIL]
+ jeq 30 # [<num> NIL]
setc # lt
ret
end
@@ -938,11 +938,11 @@
num E
jnz 40 # [<sym> <num>]
cmp E Nil
- jz 30 # [<sym> NIL]
+ jeq 30 # [<sym> NIL]
atom E
jz 10 # [<sym> <cell>]
cmp E TSym
- jz 10 # [<sym> T]
+ jeq 10 # [<sym> T]
push X # [<sym> <sym>]
ld X (A TAIL)
call nameX_X # Get A's name in X
@@ -989,7 +989,7 @@
end
do
cmp B C # Bytes equal?
- jnz 70 # No: lt or gt
+ jne 70 # No: lt or gt
shr A 8 # Next byte in A?
if z # No
shr C 8 # Next byte in C?
@@ -1327,7 +1327,7 @@
inc Y # Increment buffer pointer
loop
cmp Y Z # At start of buffer?
- jz 90 # Yes
+ jeq 90 # Yes
nul (Y 1) # At end of buffer?
jz 90 # Yes
set (Y) 0 # Replace colon with null byte
diff --git a/src64/sym.l b/src64/sym.l
@@ -1,4 +1,4 @@
-# 03sep10abu
+# 26feb11abu
# (c) Software Lab. Alexander Burger
### Compare long names ###
@@ -691,7 +691,7 @@
sym E
jz retnz # No
cmp E Nil # NIL?
- jz ret # Yes
+ jeq ret # Yes
sym (E TAIL) # External symbol?
jnz ret # Yes
push X
@@ -1275,7 +1275,7 @@
ld X (E CDR) # Args
call evSymX_E # Eval first
cmp E Nil # NIL?
- if nz
+ if ne # No
ld E (E TAIL)
call nameE_E # Get name
link
