commit 9d11c451f61b78191a8edc56384fd5045f79df35
parent 5c1fce4ee03c689f8c3930fb19b629a5cad5c44c
Author: Alexander Burger <abu@software-lab.de>
Date: Mon, 28 Mar 2011 10:53:56 +0200
Minor: Clear carry not necessary
Diffstat:
| M | lib/tags | | | 110 | ++++++++++++++++++++++++++++++++++++++++---------------------------------------- |
| M | src64/sym.l | | | 4 | +--- |
2 files changed, 56 insertions(+), 58 deletions(-)
diff --git a/lib/tags b/lib/tags
@@ -8,17 +8,17 @@ $ (2959 . "@src64/flow.l")
- (2209 . "@src64/big.l")
-> (3909 . "@src64/subr.l")
/ (2511 . "@src64/big.l")
-: (2898 . "@src64/sym.l")
-:: (2922 . "@src64/sym.l")
-; (2824 . "@src64/sym.l")
+: (2896 . "@src64/sym.l")
+:: (2920 . "@src64/sym.l")
+; (2822 . "@src64/sym.l")
< (2203 . "@src64/subr.l")
<= (2233 . "@src64/subr.l")
<> (2140 . "@src64/subr.l")
= (2111 . "@src64/subr.l")
=0 (2169 . "@src64/subr.l")
-=: (2853 . "@src64/sym.l")
+=: (2851 . "@src64/sym.l")
== (2055 . "@src64/subr.l")
-==== (967 . "@src64/sym.l")
+==== (965 . "@src64/sym.l")
=T (2177 . "@src64/subr.l")
> (2263 . "@src64/subr.l")
>= (2293 . "@src64/subr.l")
@@ -27,7 +27,7 @@ abs (2729 . "@src64/big.l")
accept (139 . "@src64/net.l")
adr (603 . "@src64/main.l")
alarm (480 . "@src64/main.l")
-all (772 . "@src64/sym.l")
+all (770 . "@src64/sym.l")
and (1621 . "@src64/flow.l")
any (3933 . "@src64/io.l")
append (1338 . "@src64/subr.l")
@@ -44,7 +44,7 @@ bind (1359 . "@src64/flow.l")
bit? (2746 . "@src64/big.l")
bool (1721 . "@src64/flow.l")
box (822 . "@src64/flow.l")
-box? (999 . "@src64/sym.l")
+box? (997 . "@src64/sym.l")
by (1669 . "@src64/apply.l")
bye (3438 . "@src64/flow.l")
caaaar (271 . "@src64/subr.l")
@@ -83,7 +83,7 @@ cddr (79 . "@src64/subr.l")
cdr (17 . "@src64/subr.l")
chain (1141 . "@src64/subr.l")
char (3415 . "@src64/io.l")
-chop (1093 . "@src64/sym.l")
+chop (1091 . "@src64/sym.l")
circ (816 . "@src64/subr.l")
circ? (2398 . "@src64/subr.l")
clip (1795 . "@src64/subr.l")
@@ -100,14 +100,14 @@ cons (747 . "@src64/subr.l")
copy (1225 . "@src64/subr.l")
ctl (4217 . "@src64/io.l")
ctty (2671 . "@src64/main.l")
-cut (1797 . "@src64/sym.l")
+cut (1795 . "@src64/sym.l")
date (2385 . "@src64/main.l")
dbck (2105 . "@src64/db.l")
de (531 . "@src64/flow.l")
dec (2323 . "@src64/big.l")
def (455 . "@src64/flow.l")
-default (1661 . "@src64/sym.l")
-del (1852 . "@src64/sym.l")
+default (1659 . "@src64/sym.l")
+del (1850 . "@src64/sym.l")
delete (1401 . "@src64/subr.l")
delq (1452 . "@src64/subr.l")
diff (2585 . "@src64/subr.l")
@@ -123,11 +123,11 @@ err (4197 . "@src64/io.l")
errno (1381 . "@src64/main.l")
eval (182 . "@src64/flow.l")
ext (5100 . "@src64/io.l")
-ext? (1034 . "@src64/sym.l")
-extern (900 . "@src64/sym.l")
+ext? (1032 . "@src64/sym.l")
+extern (898 . "@src64/sym.l")
extra (1263 . "@src64/flow.l")
extract (1218 . "@src64/apply.l")
-fifo (1963 . "@src64/sym.l")
+fifo (1961 . "@src64/sym.l")
file (2751 . "@src64/main.l")
fill (3236 . "@src64/subr.l")
filter (1161 . "@src64/apply.l")
@@ -138,27 +138,27 @@ fish (1613 . "@src64/apply.l")
flg? (2441 . "@src64/subr.l")
flip (1695 . "@src64/subr.l")
flush (5075 . "@src64/io.l")
-fold (3343 . "@src64/sym.l")
+fold (3341 . "@src64/sym.l")
for (2227 . "@src64/flow.l")
fork (3264 . "@src64/flow.l")
format (2089 . "@src64/big.l")
free (2047 . "@src64/db.l")
from (3511 . "@src64/io.l")
full (1075 . "@src64/subr.l")
-fun? (734 . "@src64/sym.l")
+fun? (732 . "@src64/sym.l")
gc (432 . "@src64/gc.l")
ge0 (2705 . "@src64/big.l")
-get (2750 . "@src64/sym.l")
-getd (742 . "@src64/sym.l")
-getl (3032 . "@src64/sym.l")
-glue (1234 . "@src64/sym.l")
+get (2748 . "@src64/sym.l")
+getd (740 . "@src64/sym.l")
+getl (3030 . "@src64/sym.l")
+glue (1232 . "@src64/sym.l")
gt0 (2716 . "@src64/big.l")
head (1816 . "@src64/subr.l")
heap (535 . "@src64/main.l")
hear (3196 . "@src64/io.l")
host (184 . "@src64/net.l")
id (1027 . "@src64/db.l")
-idx (2037 . "@src64/sym.l")
+idx (2035 . "@src64/sym.l")
if (1802 . "@src64/flow.l")
if2 (1821 . "@src64/flow.l")
ifn (1862 . "@src64/flow.l")
@@ -166,7 +166,7 @@ in (4157 . "@src64/io.l")
inc (2256 . "@src64/big.l")
index (2633 . "@src64/subr.l")
info (2708 . "@src64/main.l")
-intern (875 . "@src64/sym.l")
+intern (873 . "@src64/sym.l")
ipid (3209 . "@src64/flow.l")
isa (959 . "@src64/flow.l")
job (1426 . "@src64/flow.l")
@@ -189,11 +189,11 @@ lit (157 . "@src64/flow.l")
load (4134 . "@src64/io.l")
lock (1184 . "@src64/db.l")
loop (2170 . "@src64/flow.l")
-low? (3215 . "@src64/sym.l")
-lowc (3245 . "@src64/sym.l")
+low? (3213 . "@src64/sym.l")
+lowc (3243 . "@src64/sym.l")
lst? (2411 . "@src64/subr.l")
lt0 (2680 . "@src64/big.l")
-lup (2226 . "@src64/sym.l")
+lup (2224 . "@src64/sym.l")
made (1107 . "@src64/subr.l")
make (1088 . "@src64/subr.l")
map (849 . "@src64/apply.l")
@@ -209,7 +209,7 @@ max (2323 . "@src64/subr.l")
maxi (1511 . "@src64/apply.l")
member (2451 . "@src64/subr.l")
memq (2473 . "@src64/subr.l")
-meta (3135 . "@src64/sym.l")
+meta (3133 . "@src64/sym.l")
meth (1087 . "@src64/flow.l")
method (1051 . "@src64/flow.l")
min (2352 . "@src64/subr.l")
@@ -219,7 +219,7 @@ mmeq (2501 . "@src64/subr.l")
n0 (2185 . "@src64/subr.l")
n== (2083 . "@src64/subr.l")
nT (2194 . "@src64/subr.l")
-name (499 . "@src64/sym.l")
+name (497 . "@src64/sym.l")
nand (1656 . "@src64/flow.l")
native (1389 . "@src64/main.l")
need (919 . "@src64/subr.l")
@@ -231,30 +231,30 @@ nor (1677 . "@src64/flow.l")
not (1729 . "@src64/flow.l")
nth (685 . "@src64/subr.l")
num? (2422 . "@src64/subr.l")
-off (1598 . "@src64/sym.l")
+off (1596 . "@src64/sym.l")
offset (2673 . "@src64/subr.l")
-on (1583 . "@src64/sym.l")
-onOff (1613 . "@src64/sym.l")
-one (1646 . "@src64/sym.l")
+on (1581 . "@src64/sym.l")
+onOff (1611 . "@src64/sym.l")
+one (1644 . "@src64/sym.l")
open (4301 . "@src64/io.l")
opid (3225 . "@src64/flow.l")
opt (2994 . "@src64/main.l")
or (1637 . "@src64/flow.l")
out (4177 . "@src64/io.l")
-pack (1144 . "@src64/sym.l")
+pack (1142 . "@src64/sym.l")
pair (2390 . "@src64/subr.l")
pass (754 . "@src64/apply.l")
-pat? (720 . "@src64/sym.l")
+pat? (718 . "@src64/sym.l")
path (1238 . "@src64/io.l")
peek (3399 . "@src64/io.l")
pick (1369 . "@src64/apply.l")
pipe (4238 . "@src64/io.l")
poll (3288 . "@src64/io.l")
pool (648 . "@src64/db.l")
-pop (1773 . "@src64/sym.l")
+pop (1771 . "@src64/sym.l")
port (5 . "@src64/net.l")
pr (5183 . "@src64/io.l")
-pre? (1411 . "@src64/sym.l")
+pre? (1409 . "@src64/sym.l")
prin (4999 . "@src64/io.l")
prinl (5013 . "@src64/io.l")
print (5039 . "@src64/io.l")
@@ -264,15 +264,15 @@ prior (2709 . "@src64/subr.l")
prog (1757 . "@src64/flow.l")
prog1 (1765 . "@src64/flow.l")
prog2 (1782 . "@src64/flow.l")
-prop (2781 . "@src64/sym.l")
+prop (2779 . "@src64/sym.l")
protect (525 . "@src64/main.l")
prove (3523 . "@src64/subr.l")
-push (1688 . "@src64/sym.l")
-push1 (1724 . "@src64/sym.l")
-put (2698 . "@src64/sym.l")
-putl (2950 . "@src64/sym.l")
+push (1686 . "@src64/sym.l")
+push1 (1722 . "@src64/sym.l")
+put (2696 . "@src64/sym.l")
+putl (2948 . "@src64/sym.l")
pwd (2635 . "@src64/main.l")
-queue (1920 . "@src64/sym.l")
+queue (1918 . "@src64/sym.l")
quit (1098 . "@src64/main.l")
quote (141 . "@src64/flow.l")
rand (2973 . "@src64/big.l")
@@ -293,22 +293,22 @@ seed (2958 . "@src64/big.l")
seek (1275 . "@src64/apply.l")
send (1131 . "@src64/flow.l")
seq (1083 . "@src64/db.l")
-set (1482 . "@src64/sym.l")
-setq (1515 . "@src64/sym.l")
+set (1480 . "@src64/sym.l")
+setq (1513 . "@src64/sym.l")
sigio (496 . "@src64/main.l")
size (2802 . "@src64/subr.l")
skip (3469 . "@src64/io.l")
sort (3958 . "@src64/subr.l")
-sp? (711 . "@src64/sym.l")
+sp? (709 . "@src64/sym.l")
space (5017 . "@src64/io.l")
split (1588 . "@src64/subr.l")
stack (564 . "@src64/main.l")
state (2006 . "@src64/flow.l")
stem (1985 . "@src64/subr.l")
str (3987 . "@src64/io.l")
-str? (1013 . "@src64/sym.l")
+str? (1011 . "@src64/sym.l")
strip (1572 . "@src64/subr.l")
-sub? (1444 . "@src64/sym.l")
+sub? (1442 . "@src64/sym.l")
sum (1460 . "@src64/apply.l")
super (1218 . "@src64/flow.l")
sym (3973 . "@src64/io.l")
@@ -318,12 +318,12 @@ sys (3061 . "@src64/flow.l")
t (1748 . "@src64/flow.l")
tail (1907 . "@src64/subr.l")
tell (3228 . "@src64/io.l")
-text (1272 . "@src64/sym.l")
+text (1270 . "@src64/sym.l")
throw (2490 . "@src64/flow.l")
tick (3177 . "@src64/flow.l")
till (3578 . "@src64/io.l")
time (2518 . "@src64/main.l")
-touch (1049 . "@src64/sym.l")
+touch (1047 . "@src64/sym.l")
trim (1755 . "@src64/subr.l")
try (1172 . "@src64/flow.l")
type (912 . "@src64/flow.l")
@@ -332,23 +332,23 @@ unify (3931 . "@src64/subr.l")
unless (1898 . "@src64/flow.l")
until (2082 . "@src64/flow.l")
up (706 . "@src64/main.l")
-upp? (3230 . "@src64/sym.l")
-uppc (3294 . "@src64/sym.l")
+upp? (3228 . "@src64/sym.l")
+uppc (3292 . "@src64/sym.l")
use (1570 . "@src64/flow.l")
usec (2623 . "@src64/main.l")
-val (1463 . "@src64/sym.l")
+val (1461 . "@src64/sym.l")
version (3008 . "@src64/main.l")
wait (3118 . "@src64/io.l")
when (1881 . "@src64/flow.l")
while (2058 . "@src64/flow.l")
-wipe (3090 . "@src64/sym.l")
+wipe (3088 . "@src64/sym.l")
with (1327 . "@src64/flow.l")
wr (5200 . "@src64/io.l")
-xchg (1538 . "@src64/sym.l")
+xchg (1536 . "@src64/sym.l")
xor (1698 . "@src64/flow.l")
x| (2885 . "@src64/big.l")
yield (2715 . "@src64/flow.l")
yoke (1196 . "@src64/subr.l")
-zap (1063 . "@src64/sym.l")
-zero (1631 . "@src64/sym.l")
+zap (1061 . "@src64/sym.l")
+zero (1629 . "@src64/sym.l")
| (2845 . "@src64/big.l")
diff --git a/src64/sym.l b/src64/sym.l
@@ -1,4 +1,4 @@
-# 03mar11abu
+# 28mar11abu
# (c) Software Lab. Alexander Burger
### Compare long names ###
@@ -95,7 +95,6 @@
cmp A X # Equal?
if eq # Yes
ld E (C) # Found symbol
- clrc
ret
end
if lt # Symbol is smaller
@@ -186,7 +185,6 @@
call cmpLongAX_F # Equal?
if eq # Yes
ld E (C) # Found symbol
- clrc
ret
end
if lt # Symbol is smaller
