commit b30d2e36fbfa650613f6deebbfa280add812712b
parent 1f6efd216ee5887ab7d461fe17c69520348fe321
Author: Alexander Burger <abu@software-lab.de>
Date: Sat, 25 May 2013 07:51:38 +0200
Cosmetics
Diffstat:
4 files changed, 168 insertions(+), 169 deletions(-)
diff --git a/lib/map b/lib/map
@@ -1,5 +1,5 @@
-! (2861 . "@src64/flow.l")
-$ (2963 . "@src64/flow.l")
+! (2860 . "@src64/flow.l")
+$ (2962 . "@src64/flow.l")
% (2572 . "@src64/big.l")
& (2807 . "@src64/big.l")
* (2389 . "@src64/big.l")
@@ -46,7 +46,7 @@ bool (1724 . "@src64/flow.l")
box (828 . "@src64/flow.l")
box? (1131 . "@src64/sym.l")
by (1669 . "@src64/apply.l")
-bye (3411 . "@src64/flow.l")
+bye (3410 . "@src64/flow.l")
bytes (2973 . "@src64/subr.l")
caaaar (271 . "@src64/subr.l")
caaadr (288 . "@src64/subr.l")
@@ -62,7 +62,7 @@ caddar (409 . "@src64/subr.l")
cadddr (435 . "@src64/subr.l")
caddr (156 . "@src64/subr.l")
cadr (45 . "@src64/subr.l")
-call (3063 . "@src64/flow.l")
+call (3062 . "@src64/flow.l")
car (5 . "@src64/subr.l")
case (1965 . "@src64/flow.l")
catch (2467 . "@src64/flow.l")
@@ -115,7 +115,7 @@ diff (2590 . "@src64/subr.l")
dir (3153 . "@src64/main.l")
dm (545 . "@src64/flow.l")
do (2141 . "@src64/flow.l")
-e (2924 . "@src64/flow.l")
+e (2923 . "@src64/flow.l")
echo (4434 . "@src64/io.l")
env (608 . "@src64/main.l")
eof (3549 . "@src64/io.l")
@@ -141,7 +141,7 @@ flip (1700 . "@src64/subr.l")
flush (5143 . "@src64/io.l")
fold (3521 . "@src64/sym.l")
for (2230 . "@src64/flow.l")
-fork (3237 . "@src64/flow.l")
+fork (3236 . "@src64/flow.l")
format (2089 . "@src64/big.l")
free (1960 . "@src64/db.l")
from (3568 . "@src64/io.l")
@@ -169,12 +169,12 @@ inc (2256 . "@src64/big.l")
index (2638 . "@src64/subr.l")
info (3055 . "@src64/main.l")
intern (1007 . "@src64/sym.l")
-ipid (3182 . "@src64/flow.l")
+ipid (3181 . "@src64/flow.l")
isa (967 . "@src64/flow.l")
job (1429 . "@src64/flow.l")
journal (971 . "@src64/db.l")
key (3401 . "@src64/io.l")
-kill (3214 . "@src64/flow.l")
+kill (3213 . "@src64/flow.l")
last (2045 . "@src64/subr.l")
le0 (2693 . "@src64/big.l")
length (2742 . "@src64/subr.l")
@@ -239,7 +239,7 @@ on (1717 . "@src64/sym.l")
onOff (1747 . "@src64/sym.l")
one (1780 . "@src64/sym.l")
open (4360 . "@src64/io.l")
-opid (3198 . "@src64/flow.l")
+opid (3197 . "@src64/flow.l")
opt (3344 . "@src64/main.l")
or (1640 . "@src64/flow.l")
out (4236 . "@src64/io.l")
@@ -324,7 +324,7 @@ tail (1912 . "@src64/subr.l")
tell (3285 . "@src64/io.l")
text (1407 . "@src64/sym.l")
throw (2493 . "@src64/flow.l")
-tick (3150 . "@src64/flow.l")
+tick (3149 . "@src64/flow.l")
till (3635 . "@src64/io.l")
time (2860 . "@src64/main.l")
touch (1181 . "@src64/sym.l")
@@ -352,7 +352,7 @@ wr (5268 . "@src64/io.l")
xchg (1672 . "@src64/sym.l")
xor (1701 . "@src64/flow.l")
x| (2887 . "@src64/big.l")
-yield (2712 . "@src64/flow.l")
+yield (2711 . "@src64/flow.l")
yoke (1197 . "@src64/subr.l")
zap (1195 . "@src64/sym.l")
zero (1765 . "@src64/sym.l")
diff --git a/src64/flow.l b/src64/flow.l
@@ -1,4 +1,4 @@
-# 24may13abu
+# 25may13abu
# (c) Software Lab. Alexander Burger
(code 'redefMsgEC)
@@ -2635,8 +2635,7 @@
ld C (Stacks) # Segment count
null C # Starting first coroutine?
if z # Yes
- ld A Y # Set stack limit
- add A 4096
+ lea A (Y 4096) # Set stack limit
cmp S A # Check it
jlt stkErr
ld (StkLimit) A
diff --git a/src64/gc.l b/src64/gc.l
@@ -1,4 +1,4 @@
-# 24may13abu
+# 25may13abu
# (c) Software Lab. Alexander Burger
# Mark data
@@ -130,7 +130,7 @@
ld Y (Y) # Next frame
loop
ld Y (Stack1) # Search through stack segments
- ld C (Stacks) # Segment bitmask
+ ld C (Stacks) # Segment count
do
dec C # Any?
while ns # Yes
@@ -318,7 +318,7 @@
loop
50 ### Clean up ###
ld Y (Stack1) # Search through stack segments
- ld C (Stacks) # Segment bitmask
+ ld C (Stacks) # Segment count
do
dec C # Any?
while ns # Yes
diff --git a/src64/tags b/src64/tags
@@ -749,102 +749,102 @@ sys/x86-64.linux.defs.l,1959
fishAXY1640,41196
doBy1669,41750
-./err.l,1925
+./err.l,1926
dbgS5,73
errnoEXY24,572
errEXYZ33,734
-unwindC_Z169,4297
-needSymAX336,8998
-needSymEX348,9197
-needVarAX359,9386
-needVarEX369,9563
-checkVarAX378,9730
-checkVarYX386,9866
-checkVarEX394,10002
-protErrEX399,10110
-symNsErrEX403,10160
-stkErr408,10235
-stkErrE410,10260
-stkErrX412,10286
-stkErrEX414,10312
-argErrAX419,10400
-argErrEX421,10427
-numErrAX425,10475
-numErrEX427,10502
-cntErrAX431,10550
-cntErrCX433,10577
-cntErrEX435,10604
-symErrAX439,10652
-symErrYX441,10679
-symErrEX443,10706
-extErrEX447,10754
-pairErrAX451,10802
-pairErrEX453,10830
-atomErrAX457,10880
-atomErrEX459,10908
-lstErrAX463,10958
-lstErrEX465,10985
-varErrAX469,11033
-varErrEX471,11060
-divErrX475,11108
-renErrEX480,11165
-makeErrX484,11213
-reentErrEX489,11272
-yieldErrX493,11324
-yieldErrEX495,11352
-msgErrYX499,11404
-msgErrAX501,11431
-msgErrEX503,11458
-brkErrX507,11506
-openErrEX513,11576
-closeErrX517,11627
-closeErrEX519,11655
-pipeErrX523,11708
-forkErrX528,11768
-waitPidErrX533,11827
-badFdErrEX538,11893
-noFdErrX542,11945
-eofErr547,12004
-suparErrE553,12070
-badInputErrB558,12131
-badDotErrE566,12222
-selectErrX571,12282
-wrBytesErr576,12346
-wrChildErr582,12421
-wrSyncErrX588,12496
-wrJnlErr593,12560
-wrLogErr599,12631
-truncErrX605,12702
-dbSyncErrX610,12764
-trSyncErrX615,12828
-lockErr620,12892
-dbfErrX626,12961
-jnlErrX631,13018
-idErrXL636,13075
-dbRdErr641,13149
-dbWrErr647,13218
-dbSizErr653,13287
-tellErr659,13357
-ipSocketErrX665,13425
-ipGetsocknameErrX670,13493
-ipV6onlyErrX675,13571
-ipReuseaddrErrX680,13639
-ipBindErrX685,13713
-ipListenErrX690,13777
-udpOvflErr695,13845
-undefinedCE702,13944
-undefinedCX704,13974
-undefinedEX706,14004
-dlErrX710,14057
-ret718,14203
-retc720,14224
-retnc723,14254
-retz726,14285
-retnz729,14315
-retNull732,14346
-retNil735,14381
-retT738,14417
-retE_E741,14452
+unwindC_Z175,4436
+needSymAX342,9137
+needSymEX354,9336
+needVarAX365,9525
+needVarEX375,9702
+checkVarAX384,9869
+checkVarYX392,10005
+checkVarEX400,10141
+protErrEX405,10249
+symNsErrEX409,10299
+stkErr414,10374
+stkErrE416,10399
+stkErrX418,10425
+stkErrEX420,10451
+argErrAX425,10539
+argErrEX427,10566
+numErrAX431,10614
+numErrEX433,10641
+cntErrAX437,10689
+cntErrCX439,10716
+cntErrEX441,10743
+symErrAX445,10791
+symErrYX447,10818
+symErrEX449,10845
+extErrEX453,10893
+pairErrAX457,10941
+pairErrEX459,10969
+atomErrAX463,11019
+atomErrEX465,11047
+lstErrAX469,11097
+lstErrEX471,11124
+varErrAX475,11172
+varErrEX477,11199
+divErrX481,11247
+renErrEX486,11304
+makeErrX490,11352
+reentErrEX495,11411
+yieldErrX499,11463
+yieldErrEX501,11491
+msgErrYX505,11543
+msgErrAX507,11570
+msgErrEX509,11597
+brkErrX513,11645
+openErrEX519,11715
+closeErrX523,11766
+closeErrEX525,11794
+pipeErrX529,11847
+forkErrX534,11907
+waitPidErrX539,11966
+badFdErrEX544,12032
+noFdErrX548,12084
+eofErr553,12143
+suparErrE559,12209
+badInputErrB564,12270
+badDotErrE572,12361
+selectErrX577,12421
+wrBytesErr582,12485
+wrChildErr588,12560
+wrSyncErrX594,12635
+wrJnlErr599,12699
+wrLogErr605,12770
+truncErrX611,12841
+dbSyncErrX616,12903
+trSyncErrX621,12967
+lockErr626,13031
+dbfErrX632,13100
+jnlErrX637,13157
+idErrXL642,13214
+dbRdErr647,13288
+dbWrErr653,13357
+dbSizErr659,13426
+tellErr665,13496
+ipSocketErrX671,13564
+ipGetsocknameErrX676,13632
+ipV6onlyErrX681,13710
+ipReuseaddrErrX686,13778
+ipBindErrX691,13852
+ipListenErrX696,13916
+udpOvflErr701,13984
+undefinedCE708,14083
+undefinedCX710,14113
+undefinedEX712,14143
+dlErrX716,14196
+ret724,14342
+retc726,14363
+retnc729,14393
+retz732,14424
+retnz735,14454
+retNull738,14485
+retNil741,14520
+retT744,14556
+retE_E747,14591
./sym.l,1776
cmpLongAX_F5,78
@@ -999,46 +999,46 @@ sys/x86-64.linux.defs.l,1959
markE5,63
needC54,1336
gc65,1529
-doGc430,11107
-cons_A453,11628
-cons_C465,11892
-cons_E477,12156
-cons_X489,12420
-cons_Y501,12684
-cons_Z513,12948
-consA_A525,13212
-consC_A541,13535
-consE_A557,13844
-consX_A573,14153
-consA_C589,14462
-consC_C605,14771
-consE_C621,15094
-consA_E637,15403
-consC_E653,15712
-consE_E669,16021
-consX_E685,16344
-consA_X701,16653
-consE_X717,16962
-consY_X733,17271
-consA_Y749,17580
-consA_Z765,17889
-consAC_E781,18198
-consSymX_E799,18551
-boxNum_A819,19001
-boxNum_C831,19286
-boxNum_E843,19571
-boxNum_X855,19856
-boxNumA_A867,20141
-boxNumE_E881,20470
-consNumAC_A895,20799
-consNumAE_A913,21175
-consNumCA_C931,21551
-consNumCE_A949,21927
-consNumCE_C966,22294
-consNumCE_E984,22670
-consNumEA_A1001,23020
-consNumEA_E1018,23370
-consNumEC_E1036,23746
+doGc430,11103
+cons_A453,11624
+cons_C465,11888
+cons_E477,12152
+cons_X489,12416
+cons_Y501,12680
+cons_Z513,12944
+consA_A525,13208
+consC_A541,13531
+consE_A557,13840
+consX_A573,14149
+consA_C589,14458
+consC_C605,14767
+consE_C621,15090
+consA_E637,15399
+consC_E653,15708
+consE_E669,16017
+consX_E685,16340
+consA_X701,16649
+consE_X717,16958
+consY_X733,17267
+consA_Y749,17576
+consA_Z765,17885
+consAC_E781,18194
+consSymX_E799,18547
+boxNum_A819,18997
+boxNum_C831,19282
+boxNum_E843,19567
+boxNum_X855,19852
+boxNumA_A867,20137
+boxNumE_E881,20466
+consNumAC_A895,20795
+consNumAE_A913,21171
+consNumCA_C931,21547
+consNumCE_A949,21923
+consNumCE_C966,22290
+consNumCE_E984,22666
+consNumEA_A1001,23016
+consNumEA_E1018,23366
+consNumEC_E1036,23742
./flow.l,1658
redefMsgEC4,51
@@ -1108,25 +1108,25 @@ sys/x86-64.linux.defs.l,1959
doFinally2524,58583
doCo2548,59123
resumeCoroutine2573,59902
-doYield2712,64386
-cutLocalCX2824,67480
-joinLocalCX2837,67710
-closeCoFilesC2847,67873
-doBreak2861,68136
-brkLoadE_E2869,68288
-doE2924,69888
-doTrace2963,70654
-traceCY3035,72569
-doCall3063,73057
-doTick3150,75249
-doIpid3182,76246
-doOpid3198,76534
-doKill3214,76829
-doFork3237,77264
-forkLispX_FE3250,77485
-doBye3411,82045
-byeE3423,82217
-finishE3435,82528
+doYield2711,64374
+cutLocalCX2823,67468
+joinLocalCX2836,67698
+closeCoFilesC2846,67861
+doBreak2860,68124
+brkLoadE_E2868,68276
+doE2923,69876
+doTrace2962,70642
+traceCY3034,72557
+doCall3062,73045
+doTick3149,75237
+doIpid3181,76234
+doOpid3197,76522
+doKill3213,76817
+doFork3236,77252
+forkLispX_FE3249,77473
+doBye3410,82033
+byeE3422,82205
+finishE3434,82516
./subr.l,2147
doCar5,71
