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