commit 5965c7563842a274f7ac1d4368bc098671f03a4e
parent 46d482cfb31093d6873a27df27f3aad630d8fb21
Author: Alexander Burger <abu@software-lab.de>
Date: Tue, 11 Dec 2012 17:58:59 +0100
Direct comparison of anonymous symbols
Diffstat:
| M | src64/main.l | | | 10 | +++++----- |
| M | src64/tags | | | 150 | ++++++++++++++++++++++++++++++++++++++++---------------------------------------- |
2 files changed, 80 insertions(+), 80 deletions(-)
diff --git a/src64/main.l b/src64/main.l
@@ -1,4 +1,4 @@
-# 25nov12abu
+# 11dec12abu
# (c) Software Lab. Alexander Burger
(code 'Code)
@@ -1046,11 +1046,11 @@
call nameX_X # Get A's name in X
cmp X ZERO # Any?
if eq # No
- ld E (E TAIL)
- call nameE_E # Second name in E
- cmp E ZERO # Any?
+ ld X (E TAIL)
+ call nameX_X # Second name in X
+ cmp X ZERO # Any?
if eq # No
- shr A 5 # Random bit from A (...x1000) into carry (non-zero)
+ cmp A E # Compare symbol addresses
else
setc # lt
end
diff --git a/src64/tags b/src64/tags
@@ -451,81 +451,81 @@ sys/x86-64.linux.defs.l,1959
circE_YF845,21008
equalAE_F877,21748
compareAE_F1010,24957
-memberXY_FY1172,28459
-doQuit1190,28810
-evExprCE_E1208,29227
-evListE_E1356,32861
-sharedLibC_FA1409,33997
-doErrno1480,35641
-doNative1488,35805
-natBufACZ_CZ1692,41607
-natRetACE_CE1791,44092
-doStruct1940,49492
-fetchCharC_AC1983,50372
-cbl2018,51241
-cbl12051,51957
-cbl22055,52073
-cbl32059,52119
-cbl42063,52171
-cbl52067,52223
-cbl62071,52275
-cbl72075,52327
-cbl82079,52379
-cbl92083,52431
-cbl102087,52483
-cbl112091,52536
-cbl122095,52590
-cbl132099,52644
-cbl142103,52698
-cbl152107,52752
-cbl162111,52806
-cbl172115,52860
-cbl182119,52914
-cbl192123,52968
-cbl202127,53022
-cbl212131,53076
-cbl222135,53130
-cbl232139,53184
-cbl242143,53238
-doLisp2149,53321
-lisp2193,54347
-execE2239,55461
-runE_E2251,55616
-funqE_FE2263,55768
-evSymX_E2325,57191
-evSymY_E2328,57249
-evSymE_E2330,57291
-xSymE_E2332,57328
-evCntXY_FE2353,57693
-evCntEX_FE2355,57737
-xCntEX_FE2357,57776
-xCntCX_FC2366,57953
-xCntAX_FA2375,58130
-boxE_E2384,58307
-putStringB2404,58764
-begString2416,58978
-endString_E2427,59204
-msec_A2441,59527
-doArgs2454,59801
-doNext2461,59915
-doArg2478,60231
-doRest2507,60873
-tmDateC_E2521,61120
-dateXYZ_E2531,61297
-doDate2592,62658
-tmTimeY_E2708,66253
-doTime2725,66586
-doUsec2830,69565
-doPwd2842,69831
-doCd2853,70086
-doCtty2878,70702
-doInfo2915,71636
-doFile2960,72731
-doDir3013,73967
-doCmd3083,75585
-doArgv3101,76044
-doOpt3204,78590
-doVersion3218,78921
+memberXY_FY1172,28433
+doQuit1190,28784
+evExprCE_E1208,29201
+evListE_E1356,32835
+sharedLibC_FA1409,33971
+doErrno1480,35615
+doNative1488,35779
+natBufACZ_CZ1692,41581
+natRetACE_CE1791,44066
+doStruct1940,49466
+fetchCharC_AC1983,50346
+cbl2018,51215
+cbl12051,51931
+cbl22055,52047
+cbl32059,52093
+cbl42063,52145
+cbl52067,52197
+cbl62071,52249
+cbl72075,52301
+cbl82079,52353
+cbl92083,52405
+cbl102087,52457
+cbl112091,52510
+cbl122095,52564
+cbl132099,52618
+cbl142103,52672
+cbl152107,52726
+cbl162111,52780
+cbl172115,52834
+cbl182119,52888
+cbl192123,52942
+cbl202127,52996
+cbl212131,53050
+cbl222135,53104
+cbl232139,53158
+cbl242143,53212
+doLisp2149,53295
+lisp2193,54321
+execE2239,55435
+runE_E2251,55590
+funqE_FE2263,55742
+evSymX_E2325,57165
+evSymY_E2328,57223
+evSymE_E2330,57265
+xSymE_E2332,57302
+evCntXY_FE2353,57667
+evCntEX_FE2355,57711
+xCntEX_FE2357,57750
+xCntCX_FC2366,57927
+xCntAX_FA2375,58104
+boxE_E2384,58281
+putStringB2404,58738
+begString2416,58952
+endString_E2427,59178
+msec_A2441,59501
+doArgs2454,59775
+doNext2461,59889
+doArg2478,60205
+doRest2507,60847
+tmDateC_E2521,61094
+dateXYZ_E2531,61271
+doDate2592,62632
+tmTimeY_E2708,66227
+doTime2725,66560
+doUsec2830,69539
+doPwd2842,69805
+doCd2853,70060
+doCtty2878,70676
+doInfo2915,71610
+doFile2960,72705
+doDir3013,73941
+doCmd3083,75559
+doArgv3101,76018
+doOpt3204,78564
+doVersion3218,78895
./big.l,1059
zapZeroA_A6,106
