commit 857e0a28b1199037ee74e6d40c3dd518bd5d6db4
parent 0b4b6aaebdd24fabf293534e3b2c62703f39c3ec
Author: Alexander Burger <abu@software-lab.de>
Date: Wed, 24 Aug 2011 15:58:32 +0200
Clean up 'pop' -> 'add S'
Diffstat:
10 files changed, 149 insertions(+), 155 deletions(-)
diff --git a/lib/tags b/lib/tags
@@ -1,5 +1,5 @@
-! (2851 . "@src64/flow.l")
-$ (2953 . "@src64/flow.l")
+! (2849 . "@src64/flow.l")
+$ (2951 . "@src64/flow.l")
% (2570 . "@src64/big.l")
& (2805 . "@src64/big.l")
* (2389 . "@src64/big.l")
@@ -8,15 +8,15 @@ $ (2953 . "@src64/flow.l")
- (2209 . "@src64/big.l")
-> (3913 . "@src64/subr.l")
/ (2511 . "@src64/big.l")
-: (2926 . "@src64/sym.l")
-:: (2950 . "@src64/sym.l")
-; (2852 . "@src64/sym.l")
+: (2925 . "@src64/sym.l")
+:: (2949 . "@src64/sym.l")
+; (2851 . "@src64/sym.l")
< (2207 . "@src64/subr.l")
<= (2237 . "@src64/subr.l")
<> (2144 . "@src64/subr.l")
= (2115 . "@src64/subr.l")
=0 (2173 . "@src64/subr.l")
-=: (2881 . "@src64/sym.l")
+=: (2880 . "@src64/sym.l")
== (2059 . "@src64/subr.l")
==== (975 . "@src64/sym.l")
=T (2181 . "@src64/subr.l")
@@ -28,7 +28,7 @@ accept (139 . "@src64/net.l")
adr (594 . "@src64/main.l")
alarm (471 . "@src64/main.l")
all (780 . "@src64/sym.l")
-and (1616 . "@src64/flow.l")
+and (1614 . "@src64/flow.l")
any (3942 . "@src64/io.l")
append (1338 . "@src64/subr.l")
apply (713 . "@src64/apply.l")
@@ -38,15 +38,15 @@ argv (2930 . "@src64/main.l")
as (144 . "@src64/flow.l")
asoq (3005 . "@src64/subr.l")
assoc (2970 . "@src64/subr.l")
-at (2101 . "@src64/flow.l")
+at (2099 . "@src64/flow.l")
atom (2385 . "@src64/subr.l")
-bind (1354 . "@src64/flow.l")
+bind (1352 . "@src64/flow.l")
bit? (2746 . "@src64/big.l")
-bool (1716 . "@src64/flow.l")
+bool (1714 . "@src64/flow.l")
box (819 . "@src64/flow.l")
box? (1007 . "@src64/sym.l")
by (1669 . "@src64/apply.l")
-bye (3430 . "@src64/flow.l")
+bye (3428 . "@src64/flow.l")
caaaar (271 . "@src64/subr.l")
caaadr (288 . "@src64/subr.l")
caaar (99 . "@src64/subr.l")
@@ -61,10 +61,10 @@ caddar (409 . "@src64/subr.l")
cadddr (435 . "@src64/subr.l")
caddr (156 . "@src64/subr.l")
cadr (45 . "@src64/subr.l")
-call (3082 . "@src64/flow.l")
+call (3080 . "@src64/flow.l")
car (5 . "@src64/subr.l")
-case (1957 . "@src64/flow.l")
-catch (2459 . "@src64/flow.l")
+case (1955 . "@src64/flow.l")
+catch (2457 . "@src64/flow.l")
cd (2685 . "@src64/main.l")
cdaaar (464 . "@src64/subr.l")
cdaadr (487 . "@src64/subr.l")
@@ -90,31 +90,31 @@ clip (1799 . "@src64/subr.l")
close (4347 . "@src64/io.l")
cmd (2912 . "@src64/main.l")
cnt (1413 . "@src64/apply.l")
-co (2540 . "@src64/flow.l")
+co (2538 . "@src64/flow.l")
commit (1495 . "@src64/db.l")
con (725 . "@src64/subr.l")
conc (781 . "@src64/subr.l")
-cond (1911 . "@src64/flow.l")
+cond (1909 . "@src64/flow.l")
connect (201 . "@src64/net.l")
cons (747 . "@src64/subr.l")
copy (1225 . "@src64/subr.l")
ctl (4225 . "@src64/io.l")
ctty (2710 . "@src64/main.l")
-cut (1805 . "@src64/sym.l")
+cut (1804 . "@src64/sym.l")
date (2424 . "@src64/main.l")
dbck (2104 . "@src64/db.l")
de (529 . "@src64/flow.l")
dec (2323 . "@src64/big.l")
def (453 . "@src64/flow.l")
-default (1669 . "@src64/sym.l")
-del (1860 . "@src64/sym.l")
+default (1668 . "@src64/sym.l")
+del (1859 . "@src64/sym.l")
delete (1401 . "@src64/subr.l")
delq (1452 . "@src64/subr.l")
diff (2589 . "@src64/subr.l")
dir (2843 . "@src64/main.l")
dm (541 . "@src64/flow.l")
-do (2133 . "@src64/flow.l")
-e (2914 . "@src64/flow.l")
+do (2131 . "@src64/flow.l")
+e (2912 . "@src64/flow.l")
echo (4378 . "@src64/io.l")
env (606 . "@src64/main.l")
eof (3501 . "@src64/io.l")
@@ -127,20 +127,20 @@ ext? (1042 . "@src64/sym.l")
extern (908 . "@src64/sym.l")
extra (1259 . "@src64/flow.l")
extract (1218 . "@src64/apply.l")
-fifo (1971 . "@src64/sym.l")
+fifo (1970 . "@src64/sym.l")
file (2790 . "@src64/main.l")
fill (3240 . "@src64/subr.l")
filter (1161 . "@src64/apply.l")
fin (2033 . "@src64/subr.l")
-finally (2516 . "@src64/flow.l")
+finally (2514 . "@src64/flow.l")
find (1322 . "@src64/apply.l")
fish (1613 . "@src64/apply.l")
flg? (2445 . "@src64/subr.l")
flip (1699 . "@src64/subr.l")
flush (5081 . "@src64/io.l")
-fold (3381 . "@src64/sym.l")
-for (2222 . "@src64/flow.l")
-fork (3256 . "@src64/flow.l")
+fold (3380 . "@src64/sym.l")
+for (2220 . "@src64/flow.l")
+fork (3254 . "@src64/flow.l")
format (2089 . "@src64/big.l")
free (2046 . "@src64/db.l")
from (3520 . "@src64/io.l")
@@ -148,9 +148,9 @@ full (1075 . "@src64/subr.l")
fun? (742 . "@src64/sym.l")
gc (432 . "@src64/gc.l")
ge0 (2705 . "@src64/big.l")
-get (2776 . "@src64/sym.l")
+get (2775 . "@src64/sym.l")
getd (750 . "@src64/sym.l")
-getl (3070 . "@src64/sym.l")
+getl (3069 . "@src64/sym.l")
glue (1242 . "@src64/sym.l")
gt0 (2716 . "@src64/big.l")
hash (2974 . "@src64/big.l")
@@ -159,26 +159,26 @@ heap (526 . "@src64/main.l")
hear (3205 . "@src64/io.l")
host (184 . "@src64/net.l")
id (1025 . "@src64/db.l")
-idx (2045 . "@src64/sym.l")
-if (1797 . "@src64/flow.l")
-if2 (1816 . "@src64/flow.l")
-ifn (1857 . "@src64/flow.l")
+idx (2044 . "@src64/sym.l")
+if (1795 . "@src64/flow.l")
+if2 (1814 . "@src64/flow.l")
+ifn (1855 . "@src64/flow.l")
in (4165 . "@src64/io.l")
inc (2256 . "@src64/big.l")
index (2637 . "@src64/subr.l")
info (2747 . "@src64/main.l")
intern (883 . "@src64/sym.l")
-ipid (3201 . "@src64/flow.l")
+ipid (3199 . "@src64/flow.l")
isa (956 . "@src64/flow.l")
-job (1421 . "@src64/flow.l")
+job (1419 . "@src64/flow.l")
journal (968 . "@src64/db.l")
key (3353 . "@src64/io.l")
-kill (3233 . "@src64/flow.l")
+kill (3231 . "@src64/flow.l")
last (2044 . "@src64/subr.l")
le0 (2691 . "@src64/big.l")
length (2741 . "@src64/subr.l")
-let (1471 . "@src64/flow.l")
-let? (1532 . "@src64/flow.l")
+let (1469 . "@src64/flow.l")
+let? (1530 . "@src64/flow.l")
lieu (1154 . "@src64/db.l")
line (3676 . "@src64/io.l")
lines (3829 . "@src64/io.l")
@@ -189,12 +189,12 @@ listen (151 . "@src64/net.l")
lit (155 . "@src64/flow.l")
load (4142 . "@src64/io.l")
lock (1182 . "@src64/db.l")
-loop (2165 . "@src64/flow.l")
-low? (3253 . "@src64/sym.l")
-lowc (3283 . "@src64/sym.l")
+loop (2163 . "@src64/flow.l")
+low? (3252 . "@src64/sym.l")
+lowc (3282 . "@src64/sym.l")
lst? (2415 . "@src64/subr.l")
lt0 (2680 . "@src64/big.l")
-lup (2234 . "@src64/sym.l")
+lup (2233 . "@src64/sym.l")
made (1107 . "@src64/subr.l")
make (1088 . "@src64/subr.l")
map (849 . "@src64/apply.l")
@@ -210,7 +210,7 @@ max (2327 . "@src64/subr.l")
maxi (1511 . "@src64/apply.l")
member (2455 . "@src64/subr.l")
memq (2477 . "@src64/subr.l")
-meta (3173 . "@src64/sym.l")
+meta (3172 . "@src64/sym.l")
meth (1084 . "@src64/flow.l")
method (1048 . "@src64/flow.l")
min (2356 . "@src64/subr.l")
@@ -221,26 +221,26 @@ n0 (2189 . "@src64/subr.l")
n== (2087 . "@src64/subr.l")
nT (2198 . "@src64/subr.l")
name (502 . "@src64/sym.l")
-nand (1651 . "@src64/flow.l")
+nand (1649 . "@src64/flow.l")
native (1382 . "@src64/main.l")
need (919 . "@src64/subr.l")
new (830 . "@src64/flow.l")
next (2293 . "@src64/main.l")
-nil (1734 . "@src64/flow.l")
-nond (1934 . "@src64/flow.l")
-nor (1672 . "@src64/flow.l")
-not (1724 . "@src64/flow.l")
+nil (1732 . "@src64/flow.l")
+nond (1932 . "@src64/flow.l")
+nor (1670 . "@src64/flow.l")
+not (1722 . "@src64/flow.l")
nth (685 . "@src64/subr.l")
num? (2426 . "@src64/subr.l")
-off (1606 . "@src64/sym.l")
+off (1605 . "@src64/sym.l")
offset (2677 . "@src64/subr.l")
-on (1591 . "@src64/sym.l")
-onOff (1621 . "@src64/sym.l")
-one (1654 . "@src64/sym.l")
+on (1590 . "@src64/sym.l")
+onOff (1620 . "@src64/sym.l")
+one (1653 . "@src64/sym.l")
open (4309 . "@src64/io.l")
-opid (3217 . "@src64/flow.l")
+opid (3215 . "@src64/flow.l")
opt (3033 . "@src64/main.l")
-or (1632 . "@src64/flow.l")
+or (1630 . "@src64/flow.l")
out (4185 . "@src64/io.l")
pack (1152 . "@src64/sym.l")
pair (2394 . "@src64/subr.l")
@@ -252,28 +252,28 @@ pick (1369 . "@src64/apply.l")
pipe (4246 . "@src64/io.l")
poll (3297 . "@src64/io.l")
pool (648 . "@src64/db.l")
-pop (1781 . "@src64/sym.l")
+pop (1780 . "@src64/sym.l")
port (5 . "@src64/net.l")
pr (5189 . "@src64/io.l")
-pre? (1419 . "@src64/sym.l")
+pre? (1418 . "@src64/sym.l")
prin (5005 . "@src64/io.l")
prinl (5019 . "@src64/io.l")
print (5045 . "@src64/io.l")
println (5076 . "@src64/io.l")
printsp (5061 . "@src64/io.l")
prior (2713 . "@src64/subr.l")
-prog (1752 . "@src64/flow.l")
-prog1 (1760 . "@src64/flow.l")
-prog2 (1777 . "@src64/flow.l")
-prop (2807 . "@src64/sym.l")
+prog (1750 . "@src64/flow.l")
+prog1 (1758 . "@src64/flow.l")
+prog2 (1775 . "@src64/flow.l")
+prop (2806 . "@src64/sym.l")
protect (516 . "@src64/main.l")
prove (3527 . "@src64/subr.l")
-push (1696 . "@src64/sym.l")
-push1 (1732 . "@src64/sym.l")
-put (2724 . "@src64/sym.l")
-putl (2988 . "@src64/sym.l")
+push (1695 . "@src64/sym.l")
+push1 (1731 . "@src64/sym.l")
+put (2723 . "@src64/sym.l")
+putl (2987 . "@src64/sym.l")
pwd (2674 . "@src64/main.l")
-queue (1928 . "@src64/sym.l")
+queue (1927 . "@src64/sym.l")
quit (1089 . "@src64/main.l")
quote (139 . "@src64/flow.l")
rand (3001 . "@src64/big.l")
@@ -294,8 +294,8 @@ seed (2959 . "@src64/big.l")
seek (1275 . "@src64/apply.l")
send (1128 . "@src64/flow.l")
seq (1081 . "@src64/db.l")
-set (1490 . "@src64/sym.l")
-setq (1523 . "@src64/sym.l")
+set (1489 . "@src64/sym.l")
+setq (1522 . "@src64/sym.l")
sigio (487 . "@src64/main.l")
size (2806 . "@src64/subr.l")
skip (3478 . "@src64/io.l")
@@ -304,24 +304,24 @@ sp? (719 . "@src64/sym.l")
space (5023 . "@src64/io.l")
split (1592 . "@src64/subr.l")
stack (555 . "@src64/main.l")
-state (2001 . "@src64/flow.l")
+state (1999 . "@src64/flow.l")
stem (1989 . "@src64/subr.l")
str (3996 . "@src64/io.l")
str? (1021 . "@src64/sym.l")
strip (1576 . "@src64/subr.l")
-sub? (1452 . "@src64/sym.l")
+sub? (1451 . "@src64/sym.l")
sum (1460 . "@src64/apply.l")
super (1215 . "@src64/flow.l")
sym (3982 . "@src64/io.l")
sym? (2434 . "@src64/subr.l")
sync (3165 . "@src64/io.l")
-sys (3053 . "@src64/flow.l")
-t (1743 . "@src64/flow.l")
+sys (3051 . "@src64/flow.l")
+t (1741 . "@src64/flow.l")
tail (1911 . "@src64/subr.l")
tell (3237 . "@src64/io.l")
text (1280 . "@src64/sym.l")
-throw (2485 . "@src64/flow.l")
-tick (3169 . "@src64/flow.l")
+throw (2483 . "@src64/flow.l")
+tick (3167 . "@src64/flow.l")
till (3587 . "@src64/io.l")
time (2557 . "@src64/main.l")
touch (1057 . "@src64/sym.l")
@@ -330,26 +330,26 @@ try (1169 . "@src64/flow.l")
type (909 . "@src64/flow.l")
udp (268 . "@src64/net.l")
unify (3935 . "@src64/subr.l")
-unless (1893 . "@src64/flow.l")
-until (2077 . "@src64/flow.l")
+unless (1891 . "@src64/flow.l")
+until (2075 . "@src64/flow.l")
up (697 . "@src64/main.l")
-upp? (3268 . "@src64/sym.l")
-uppc (3332 . "@src64/sym.l")
-use (1565 . "@src64/flow.l")
+upp? (3267 . "@src64/sym.l")
+uppc (3331 . "@src64/sym.l")
+use (1563 . "@src64/flow.l")
usec (2662 . "@src64/main.l")
-val (1471 . "@src64/sym.l")
+val (1470 . "@src64/sym.l")
version (3047 . "@src64/main.l")
wait (3127 . "@src64/io.l")
-when (1876 . "@src64/flow.l")
-while (2053 . "@src64/flow.l")
-wipe (3128 . "@src64/sym.l")
+when (1874 . "@src64/flow.l")
+while (2051 . "@src64/flow.l")
+wipe (3127 . "@src64/sym.l")
with (1322 . "@src64/flow.l")
wr (5206 . "@src64/io.l")
-xchg (1546 . "@src64/sym.l")
-xor (1693 . "@src64/flow.l")
+xchg (1545 . "@src64/sym.l")
+xor (1691 . "@src64/flow.l")
x| (2885 . "@src64/big.l")
-yield (2709 . "@src64/flow.l")
+yield (2707 . "@src64/flow.l")
yoke (1196 . "@src64/subr.l")
zap (1071 . "@src64/sym.l")
-zero (1639 . "@src64/sym.l")
+zero (1638 . "@src64/sym.l")
| (2845 . "@src64/big.l")
diff --git a/src64/apply.l b/src64/apply.l
@@ -1,4 +1,4 @@
-# 20apr11abu
+# 24aug11abu
# (c) Software Lab. Alexander Burger
(code 'applyXYZ_E 0)
@@ -71,7 +71,7 @@
push 0 # Init env swap
ld Z (C CDR) # Body in Z
prog Z # Run body
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -124,7 +124,7 @@
drop
pop (EnvApply)
end
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -167,7 +167,7 @@
end
pop (EnvArgs) # Restore varArgs base
pop (EnvNext) # and 'next'
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -233,7 +233,7 @@
push 0 # Init env swap
ld Z (C CDR) # Body in Z
prog Z # Run body
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -288,7 +288,7 @@
drop
pop (EnvApply)
end
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -333,7 +333,7 @@
end
pop (EnvArgs) # Restore varArgs base
pop (EnvNext) # and 'next'
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -425,7 +425,7 @@
push 0 # Init env swap
ld Z (C CDR) # Body in Z
prog Z # Run body
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -478,7 +478,7 @@
drop
pop (EnvApply)
end
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -521,7 +521,7 @@
end
pop (EnvArgs) # Restore varArgs base
pop (EnvNext) # and 'next'
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -587,7 +587,7 @@
push 0 # Init env swap
ld Z (C CDR) # Body in Z
prog Z # Run body
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -642,7 +642,7 @@
drop
pop (EnvApply)
end
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -687,7 +687,7 @@
end
pop (EnvArgs) # Restore varArgs base
pop (EnvNext) # and 'next'
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
diff --git a/src64/db.l b/src64/db.l
@@ -1,4 +1,4 @@
-# 04jul11abu
+# 24aug11abu
# (c) Software Lab. Alexander Burger
# 6 bytes in little endian format
@@ -1122,7 +1122,7 @@
add X BLKSIZE # Increment block index
cmp X Y # Less than 'next'?
if ge # No
- pop A # Drop file number
+ add S I # Drop file number
ld E Nil # Return NIL
break T
end
@@ -1309,7 +1309,7 @@
end
loop
pop A # Get result
- pop C # Drop list head
+ add S I # Drop list head
end
ret
@@ -1412,7 +1412,7 @@
ld Z S # Z on (last) argument
call applyXYZ_E # Apply
pop Z # Get symbol
- pop A # Drop 'fun'
+ add S I # Drop 'fun'
pop Y # Get name
ld (Z) (E) # Set symbol's value
ld E (E CDR) # Properties?
@@ -1613,7 +1613,7 @@
while nc
call rdBlockLinkZ_Z # Read next block
loop
- pop A # Drop count
+ add S I # Drop count
end
add X VIII # Increment by sizeof(dbFile)
sub Y VIII # Done?
@@ -2037,7 +2037,7 @@
end
ld E TSym # Return T
end
- pop A # Drop second arg
+ add S I # Drop second arg
pop Y
pop X
ret
@@ -2239,10 +2239,7 @@
ld (E CDR) (S II) # 'syms'
end
end
-90 pop A # Drop 'next'
- pop A # and 'blks'
- pop A # and 'syms'
- pop A # and 'flg'
+90 add S IV # Drop 'next', 'blks', 'syms' and 'flg'
null (DbJnl) # Journal?
if nz # Yes
call unLockJnl # Unlock journal
diff --git a/src64/err.l b/src64/err.l
@@ -1,4 +1,4 @@
-# 06apr11abu
+# 24aug11abu
# (c) Software Lab. Alexander Burger
# Debug print routine
@@ -277,7 +277,7 @@
ret
end
loop
- pop A # Drop target frame
+ add S I # Drop target frame
do # Top level bindings
null Y # Any?
while nz # Yes
diff --git a/src64/flow.l b/src64/flow.l
@@ -1,4 +1,4 @@
-# 20apr11abu
+# 24aug11abu
# (c) Software Lab. Alexander Burger
(code 'redefMsgEC)
@@ -271,7 +271,7 @@
ld (EnvBind) L # Close bind frame
push 0 # Init env swap
eval # Evaluate 'any'
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind excluded symbols
pop X # Next symbol
@@ -412,7 +412,7 @@
else
call runE_E # Execute
end
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind excluded symbols
pop X # Next symbol
@@ -678,7 +678,7 @@
xchg (EnvCls) ((L) III) # 'cls'
xchg (EnvKey) ((L) II) # 'key'
prog Z # Run body
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -713,7 +713,7 @@
xchg (EnvCls) ((L) III) # 'cls'
xchg (EnvKey) ((L) II) # 'key'
prog Z # Run body
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -770,7 +770,7 @@
end
pop (EnvArgs) # Restore varArgs base
pop (EnvNext) # and 'next'
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -1340,9 +1340,7 @@
ld (This) E # Set new
ld X (X CDR) # Run 'prg'
prog X
- pop A # Drop 'eswp' + link + 'This'
- pop A
- pop A
+ add S III # Drop 'eswp' + link + 'This'
pop (This) # Restore value
pop L # Restore link
pop (EnvBind) # Restore bind link
@@ -1375,7 +1373,7 @@
ld (EnvBind) L # Close bind frame
push 0 # Init env swap
prog X # Run 'prg'
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
pop X # Unbind symbol
pop (X) # Restore value
@@ -1405,7 +1403,7 @@
ld (EnvBind) L # Close bind frame
push 0 # Init env swap
prog X # Run 'prg'
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -1445,12 +1443,12 @@
link
ld X (X CDR) # X on 'prg'
prog X # Run 'prg'
- pop A # Drop link
+ add S I # Drop link
pop C # Retrieve 'lst'
pop L # Unlink
cmp C Nil # Empty env 'lst'?
if ne # No
- pop A # Drop env swap
+ add S I # Drop env swap
lea X ((L) -II) # X on bindings
do # Unbind symbols
ld A (X) # Next symbol
@@ -1488,7 +1486,7 @@
ld (Y) E # Set new value
ld X (X CDR) # Run 'prg'
prog X
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
pop X # Unbind symbol
pop (X) # Restore value
@@ -1515,7 +1513,7 @@
pop L # and link
loop
prog X # Run 'prg'
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -1549,7 +1547,7 @@
ld (Y) E # Set new value
ld X (X CDR) # Run 'prg'
prog X
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
pop X # Unbind symbol
pop (X) # Restore value
@@ -1578,7 +1576,7 @@
ld (EnvBind) L # Close bind frame
push 0 # Init env swap
prog X # Run 'prg'
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
pop X # Unbind symbol
pop (X) # Restore value
@@ -1599,7 +1597,7 @@
ld (EnvBind) L # Close bind frame
push 0 # Init env swap
prog X # Run 'prg'
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -1880,7 +1878,7 @@
eval # Eval condition
cmp E Nil
if eq # NIL
- pop A # Drop rest
+ add S I # Drop rest
ret
end
ld (At) E
@@ -1898,7 +1896,7 @@
cmp E Nil
if ne # NIL
ld (At) E
- pop A # Drop rest
+ add S I # Drop rest
ld E Nil # Return NIL
ret
end
@@ -2151,7 +2149,7 @@
while nz
dec (S) # Decrement count
until z
- pop A # Drop count
+ add S I # Drop count
else
ld E Nil # Return NIL if zero
end
@@ -2271,7 +2269,7 @@
until z
end
drop
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
else
ld Z (Y CDR) # CDR of first arg
@@ -2304,7 +2302,7 @@
call loopY_FE
until z
drop
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
pop X # Unbind 'sym2'
pop (X) # Restore value
@@ -2347,7 +2345,7 @@
end
loop
drop
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
else
# (for ((sym2 . sym) ..) ..)
@@ -2390,7 +2388,7 @@
end
loop
drop
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
pop X # Unbind 'sym2'
pop (X) # Restore value
@@ -3150,7 +3148,7 @@
or A A
ld E TSym # Return 'flg'
ldnz E Nil
- pop X # Drop expression
+ add S I # Drop expression
pop Z
pop X
ret
diff --git a/src64/io.l b/src64/io.l
@@ -792,7 +792,7 @@
until z # No
sub (S I) 255 # Decrement counter
loop
- pop A # Drop second count
+ add S I # Drop second count
ld A (S) # Retrieve count
call (PutBinBZ) # Output last count
do
@@ -801,7 +801,7 @@
call prByteCEXY # Output next data byte
loop
end
- pop A # Drop count
+ add S I # Drop count
pop Y
pop X
ret
@@ -1479,7 +1479,7 @@
ld4 (S) # Get read pipe
ld (Y I) A # Set 'fd'
call initInFileA_A
- pop A # Drop 'pipe' structure
+ add S I # Drop 'pipe' structure
do
ld S Z # Clean up buffers
pop Z # Chain
@@ -1612,7 +1612,7 @@
ld4 (S 4) # Get write pipe
ld (Y I) A # Set 'fd'
call initOutFileA_A
- pop C # Drop 'pipe' structure
+ add S I # Drop 'pipe' structure
do
ld S Z # Clean up buffers
pop Z # Chain
@@ -3155,7 +3155,7 @@
end
ld (S) A # New milliseconds
loop
- pop A # Drop milliseconds
+ add S I # Drop milliseconds
pop Z
pop Y
pop X
@@ -3927,7 +3927,7 @@
ld E (L I) # Get result
drop
end
- pop A # Drop set
+ add S I # Drop set
pop X
end
drop
diff --git a/src64/main.l b/src64/main.l
@@ -1143,7 +1143,7 @@
ld (EnvBind) L # Close bind frame
push 0 # Init env swap
prog Z # Run body
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -1177,7 +1177,7 @@
ld (EnvBind) L # Close bind frame
push 0 # Init env swap
prog Z # Run body
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -1233,7 +1233,7 @@
end
pop (EnvArgs) # Restore varArgs base
pop (EnvNext) # and 'next'
- pop A # Drop env swap
+ add S I # Drop env swap
pop L # Get link
do # Unbind symbols
pop X # Next symbol
@@ -1659,7 +1659,7 @@
loop
ld E (Z -II) # Get result
drop
- pop A # Drop library handle
+ add S I # Drop library handle
pop Z
pop Y
pop X
diff --git a/src64/net.l b/src64/net.l
@@ -1,4 +1,4 @@
-# 16mar11abu
+# 24aug11abu
# (c) Software Lab. Alexander Burger
# (port ['T] 'cnt|(cnt . cnt) ['var]) -> cnt
@@ -62,7 +62,7 @@
jmp ipBindErrX
end
loop
- pop A # Drop range limit
+ add S I # Drop range limit
cmp Z SOCK_STREAM # TCP socket?
if eq # Yes
cc listen(C 5) # Mark as server socket
diff --git a/src64/subr.l b/src64/subr.l
@@ -1,4 +1,4 @@
-# 21apr11abu
+# 24aug11abu
# (c) Software Lab. Alexander Burger
# (car 'var) -> any
@@ -1779,7 +1779,7 @@
ld E (S) # Get CAR
call isBlankE_F # Blank?
if eq # Yes
- pop A # Drop CAR
+ add S I # Drop CAR
ld E Nil # Return NIL
ret
end
@@ -3511,7 +3511,7 @@
jlt stkErr
call unifyCEYZ_F # Match?
if eq # Yes
- pop A # Drop pilog environment
+ add S I # Drop pilog environment
ret # 'z'
end
end
diff --git a/src64/sym.l b/src64/sym.l
@@ -1,4 +1,4 @@
-# 22jul11abu
+# 24aug11abu
# (c) Software Lab. Alexander Burger
### Compare long names ###
@@ -278,7 +278,7 @@
mul 6364136223846793005 # Randomize
cmp A E # Equal to key?
if eq # Yes
- pop A # Drop name
+ add S I # Drop name
ld E (X) # Found symbol
ret
end
@@ -1408,8 +1408,7 @@
end
ld (S) A
loop
- pop A # Drop locals
- pop A
+ add S II # Drop locals
pop Z
pop Y
pop X
