picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

commit b30d2e36fbfa650613f6deebbfa280add812712b
parent 1f6efd216ee5887ab7d461fe17c69520348fe321
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 25 May 2013 07:51:38 +0200

Cosmetics
Diffstat:
Mlib/map | 22+++++++++++-----------
Msrc64/flow.l | 5++---
Msrc64/gc.l | 6+++---
Msrc64/tags | 304++++++++++++++++++++++++++++++++++++++++----------------------------------------
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