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 8fc3f891ad968053a357fcdcdc9be11e4e225789
parent 73b76c1e175e6030e89624b8abfd3ee9876a0607
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue, 28 May 2013 18:28:24 +0200

Link -> CLink
Diffstat:
Msrc64/glob.l | 4++--
Msrc64/main.l | 12++++++------
Msrc64/tags | 388++++++++++++++++++++++++++++++++++++++++----------------------------------------
3 files changed, 202 insertions(+), 202 deletions(-)

diff --git a/src64/glob.l b/src64/glob.l @@ -1,4 +1,4 @@ -# 24may13abu +# 28may13abu # (c) Software Lab. Alexander Burger (data 'Data) @@ -592,7 +592,6 @@ :: Get_A word 0 # Character input function :: InFile word 0 # Input file :: OutFile word 0 # Output file -: Link word 0 # Saved link register : Catch word 0 # Catch frames : Env # <Catch III> environment : EnvBind word 0 # <III> Bind frames (first item in Env) @@ -608,6 +607,7 @@ : EnvApply word 0 # Apply frames : EnvMake word 0 # 'make' env : EnvYoke word 0 +: CLink word 0 # Saved C link register : EnvParseX word 0 # Parser status : EnvParseC word 0 : EnvParseEOF word -1 diff --git a/src64/main.l b/src64/main.l @@ -1,4 +1,4 @@ -# 25may13abu +# 28may13abu # (c) Software Lab. Alexander Burger (code 'Code) @@ -1705,8 +1705,8 @@ loop ld X S # X on last argument link - push (Link) # Save Link - ld (Link) L + push (CLink) # Save Link + ld (CLink) L lea Y (Z -II) # Limit do cmp X Y # More args? @@ -1785,7 +1785,7 @@ lea X (L -I) # Top of arguments ld Y (Z) # Get function pointer cc (Y) X # Call C-function - ld (Link) (L -I) # Restore Link + ld (CLink) (L -I) # Restore Link ld E (Z -II) # Get result specification ld C 0 # No pointer yet call natRetACE_CE # Extract return value @@ -2151,7 +2151,7 @@ : cbl push L # Save C frame pointer - ld L (Link) # Restore link register + ld L (CLink) # Restore link register link # Apply args push (Z I) # 'fun' xchg A E # First arg @@ -2327,7 +2327,7 @@ (code 'lisp 0) begin # Function name in A, arguments in C, E, X, Y and Z push L # Save C frame pointer - ld L (Link) # Restore link register + ld L (CLink) # Restore link register link # Apply args push ZERO # Space for 'fun' xchg C E # First arg diff --git a/src64/tags b/src64/tags @@ -162,7 +162,7 @@ sys/x86-64.linux.defs.l,1959 AI_ADDR147,2488 AI_NEXT148,2505 -./glob.l,4330 +./glob.l,4331 Data4,51 AV7,77 AV08,141 @@ -283,132 +283,132 @@ sys/x86-64.linux.defs.l,1959 Get_A592,21892 InFile593,21952 OutFile594,21998 -Link595,22045 -Catch596,22100 -Env597,22148 -EnvBind598,22181 -EnvInFrames599,22254 -EnvOutFrames600,22302 -EnvErrFrames601,22351 -EnvCtlFrames602,22399 -EnvIntern603,22449 -EnvArgs604,22522 -EnvNext605,22571 -EnvCls606,22618 -EnvKey607,22666 -EnvApply608,22712 -EnvMake609,22760 -EnvYoke610,22806 -EnvParseX611,22829 -EnvParseC612,22878 -EnvParseEOF613,22901 -EnvMid614,22925 -EnvCo7615,22953 -EnvTask616,22999 -EnvProtect617,23044 -EnvTrace618,23097 -EnvEnd619,23144 -OrgTermio621,23173 -Flock622,23234 -Tms623,23289 -Addr624,23342 -TBuf626,23402 -CaseBlocks631,23539 -CaseData761,38922 -CaseUpper1098,78803 -CaseLower1122,80629 -Tio1147,82335 -Repl1149,82384 -PRepl1150,82429 -Jam1151,82476 -InBye1152,82521 -Sync1153,82568 -Month1154,82630 -_r_1157,82696 -_w_1158,82713 -_a_1159,82730 -_ap_1160,82747 -_dot_1161,82766 -Giveup1165,82819 -ExecErr1166,82845 -AllocErr1167,82881 -PidSigMsg1168,82910 -QuitMsg1169,82943 -CbErr1170,82964 -HashBlank1172,83008 -Redefined1173,83031 -SuperErr1174,83065 -ExtraErr1175,83094 -ThrowErr1176,83123 -Trc11177,83156 -Trc21178,83174 -SetFD1180,83200 -Delim1181,83225 -DelimEnd1182,83266 -Arrow1183,83277 -RolbLog1185,83304 -IgnLog1186,83365 -CircFree1187,83419 -BadChain1188,83457 -BadCount1189,83486 -ErrTok1191,83523 -Dashes1192,83544 -ProtErr1193,83566 -SymNsErr1194,83601 -StkErr1195,83641 -ArgErr1196,83673 -NumErr1197,83703 -CntErr1198,83736 -SymErr1199,83775 -ExtErr1200,83808 -PairErr1201,83850 -AtomErr1202,83887 -LstErr1203,83919 -VarErr1204,83950 -DivErr1205,83985 -RenErr1206,84008 -MakeErr1207,84038 -ReentErr1208,84067 -YieldErr1209,84106 -MsgErr1210,84138 -BrkErr1211,84167 -OpenErr1212,84193 -CloseErr1213,84226 -PipeErr1214,84261 -ForkErr1215,84294 -WaitPidErr1216,84323 -BadFdErr1217,84353 -NoFdErr1218,84379 -EofErr1219,84411 -SuparErr1220,84440 -BadInput1221,84486 -BadDot1222,84520 -SelectErr1223,84553 -WrBytesErr1224,84590 -WrChildErr1225,84627 -WrSyncErr1226,84664 -WrJnlErr1227,84699 -WrLogErr1228,84736 -TruncErr1229,84769 -DbSyncErr1230,84811 -TrSyncErr1231,84850 -LockErr1232,84898 -DbfErr1233,84930 -JnlErr1234,84959 -IdErr1235,84988 -DbRdErr1236,85011 -DbWrErr1237,85041 -DbSizErr1238,85072 -TellErr1239,85103 -IpSocketErr1240,85135 -IpGetsocknameErr1241,85177 -IpV6onlyErr1242,85229 -IpReuseaddrErr1243,85276 -IpBindErr1244,85327 -IpListenErr1245,85365 -UdpOvflErr1246,85407 -UndefErr1247,85441 -DlErr1248,85470 +Catch595,22045 +Env596,22093 +EnvBind597,22126 +EnvInFrames598,22199 +EnvOutFrames599,22247 +EnvErrFrames600,22296 +EnvCtlFrames601,22344 +EnvIntern602,22394 +EnvArgs603,22467 +EnvNext604,22516 +EnvCls605,22563 +EnvKey606,22611 +EnvApply607,22657 +EnvMake608,22705 +EnvYoke609,22751 +CLink610,22774 +EnvParseX611,22831 +EnvParseC612,22880 +EnvParseEOF613,22903 +EnvMid614,22927 +EnvCo7615,22955 +EnvTask616,23001 +EnvProtect617,23046 +EnvTrace618,23099 +EnvEnd619,23146 +OrgTermio621,23175 +Flock622,23236 +Tms623,23291 +Addr624,23344 +TBuf626,23404 +CaseBlocks631,23541 +CaseData761,38924 +CaseUpper1098,78805 +CaseLower1122,80631 +Tio1147,82337 +Repl1149,82386 +PRepl1150,82431 +Jam1151,82478 +InBye1152,82523 +Sync1153,82570 +Month1154,82632 +_r_1157,82698 +_w_1158,82715 +_a_1159,82732 +_ap_1160,82749 +_dot_1161,82768 +Giveup1165,82821 +ExecErr1166,82847 +AllocErr1167,82883 +PidSigMsg1168,82912 +QuitMsg1169,82945 +CbErr1170,82966 +HashBlank1172,83010 +Redefined1173,83033 +SuperErr1174,83067 +ExtraErr1175,83096 +ThrowErr1176,83125 +Trc11177,83158 +Trc21178,83176 +SetFD1180,83202 +Delim1181,83227 +DelimEnd1182,83268 +Arrow1183,83279 +RolbLog1185,83306 +IgnLog1186,83367 +CircFree1187,83421 +BadChain1188,83459 +BadCount1189,83488 +ErrTok1191,83525 +Dashes1192,83546 +ProtErr1193,83568 +SymNsErr1194,83603 +StkErr1195,83643 +ArgErr1196,83675 +NumErr1197,83705 +CntErr1198,83738 +SymErr1199,83777 +ExtErr1200,83810 +PairErr1201,83852 +AtomErr1202,83889 +LstErr1203,83921 +VarErr1204,83952 +DivErr1205,83987 +RenErr1206,84010 +MakeErr1207,84040 +ReentErr1208,84069 +YieldErr1209,84108 +MsgErr1210,84140 +BrkErr1211,84169 +OpenErr1212,84195 +CloseErr1213,84228 +PipeErr1214,84263 +ForkErr1215,84296 +WaitPidErr1216,84325 +BadFdErr1217,84355 +NoFdErr1218,84381 +EofErr1219,84413 +SuparErr1220,84442 +BadInput1221,84488 +BadDot1222,84522 +SelectErr1223,84555 +WrBytesErr1224,84592 +WrChildErr1225,84629 +WrSyncErr1226,84666 +WrJnlErr1227,84701 +WrLogErr1228,84738 +TruncErr1229,84771 +DbSyncErr1230,84813 +TrSyncErr1231,84852 +LockErr1232,84900 +DbfErr1233,84932 +JnlErr1234,84961 +IdErr1235,84990 +DbRdErr1236,85013 +DbWrErr1237,85043 +DbSizErr1238,85074 +TellErr1239,85105 +IpSocketErr1240,85137 +IpGetsocknameErr1241,85179 +IpV6onlyErr1242,85231 +IpReuseaddrErr1243,85278 +IpBindErr1244,85329 +IpListenErr1245,85367 +UdpOvflErr1246,85409 +UndefErr1247,85443 +DlErr1248,85472 ./main.l,2242 Code4,51 @@ -462,73 +462,73 @@ sys/x86-64.linux.defs.l,1959 sharedLibC_FA1543,37687 doErrno1614,39331 doNative1622,39495 -natBufACZ_CZ1826,45297 -natRetACE_CE1925,47782 -doStruct2074,53182 -fetchCharC_AC2117,54062 -cbl2152,54931 -cbl12185,55647 -cbl22189,55763 -cbl32193,55809 -cbl42197,55861 -cbl52201,55913 -cbl62205,55965 -cbl72209,56017 -cbl82213,56069 -cbl92217,56121 -cbl102221,56173 -cbl112225,56226 -cbl122229,56280 -cbl132233,56334 -cbl142237,56388 -cbl152241,56442 -cbl162245,56496 -cbl172249,56550 -cbl182253,56604 -cbl192257,56658 -cbl202261,56712 -cbl212265,56766 -cbl222269,56820 -cbl232273,56874 -cbl242277,56928 -doLisp2283,57011 -lisp2327,58037 -execE2373,59151 -runE_E2385,59306 -funqE_FE2397,59458 -evSymX_E2459,60881 -evSymY_E2462,60939 -evSymE_E2464,60981 -xSymE_E2466,61018 -evCntXY_FE2487,61383 -evCntEX_FE2489,61427 -xCntEX_FE2491,61466 -xCntCX_FC2500,61643 -xCntAX_FA2509,61820 -boxE_E2518,61997 -putStringB2538,62454 -begString2550,62668 -endString_E2561,62894 -doArgs2590,63551 -doNext2597,63665 -doArg2614,63981 -doRest2643,64623 -tmDateC_E2657,64870 -dateXYZ_E2667,65047 -doDate2728,66408 -tmTimeY_E2844,70019 -doTime2861,70352 -doUsec2965,73330 -doPwd2983,73747 -doCd2994,74002 -doCtty3019,74618 -doInfo3056,75552 -doFile3101,76647 -doDir3154,77883 -doCmd3224,79501 -doArgv3242,79960 -doOpt3345,82506 -doVersion3359,82837 +natBufACZ_CZ1826,45300 +natRetACE_CE1925,47785 +doStruct2074,53185 +fetchCharC_AC2117,54065 +cbl2152,54934 +cbl12185,55651 +cbl22189,55767 +cbl32193,55813 +cbl42197,55865 +cbl52201,55917 +cbl62205,55969 +cbl72209,56021 +cbl82213,56073 +cbl92217,56125 +cbl102221,56177 +cbl112225,56230 +cbl122229,56284 +cbl132233,56338 +cbl142237,56392 +cbl152241,56446 +cbl162245,56500 +cbl172249,56554 +cbl182253,56608 +cbl192257,56662 +cbl202261,56716 +cbl212265,56770 +cbl222269,56824 +cbl232273,56878 +cbl242277,56932 +doLisp2283,57015 +lisp2327,58041 +execE2373,59156 +runE_E2385,59311 +funqE_FE2397,59463 +evSymX_E2459,60886 +evSymY_E2462,60944 +evSymE_E2464,60986 +xSymE_E2466,61023 +evCntXY_FE2487,61388 +evCntEX_FE2489,61432 +xCntEX_FE2491,61471 +xCntCX_FC2500,61648 +xCntAX_FA2509,61825 +boxE_E2518,62002 +putStringB2538,62459 +begString2550,62673 +endString_E2561,62899 +doArgs2590,63556 +doNext2597,63670 +doArg2614,63986 +doRest2643,64628 +tmDateC_E2657,64875 +dateXYZ_E2667,65052 +doDate2728,66413 +tmTimeY_E2844,70024 +doTime2861,70357 +doUsec2965,73335 +doPwd2983,73752 +doCd2994,74007 +doCtty3019,74623 +doInfo3056,75557 +doFile3101,76652 +doDir3154,77888 +doCmd3224,79506 +doArgv3242,79965 +doOpt3345,82511 +doVersion3359,82842 ./big.l,1059 zapZeroA_A6,106