0000: 23 21 2f 62 69 6e 2f 73 68 0a 23 20 54 72 61 6e #!/bin/sh.# Tran
0010: 73 6c 61 74 65 20 74 68 65 20 61 73 73 65 6d 62 slate the assemb
0020: 6c 65 72 20 73 79 6e 74 61 78 20 6f 66 20 69 33 ler syntax of i3
0030: 38 36 20 61 73 73 65 6d 62 6c 65 72 20 70 72 6f 86 assembler pro
0040: 67 72 61 6d 73 0a 23 20 55 73 61 67 65 3a 20 61 grams.# Usage: a
0050: 73 6d 73 79 6e 74 61 78 20 5b 2d 6e 6f 2d 43 5d smsyntax [-no-C]
0060: 20 3c 20 67 61 73 2d 61 73 6d 2d 66 69 6c 65 20 < gas-asm-file
0070: 3e 20 61 6c 6c 2d 61 73 6d 2d 66 69 6c 65 0a 23 > all-asm-file.#
0080: 20 57 61 72 6e 69 6e 67 21 20 41 6c 6c 20 63 6f Warning! All co
0090: 6d 6d 65 6e 74 73 20 61 72 65 20 73 74 72 69 70 mments are strip
00a0: 70 65 64 2e 0a 0a 74 6d 70 73 63 72 69 70 74 30 ped...tmpscript0
00b0: 31 3d 73 65 64 24 24 74 6d 70 30 31 0a 74 6d 70 1=sed$$tmp01.tmp
00c0: 73 63 72 69 70 74 30 32 3d 73 65 64 24 24 74 6d script02=sed$$tm
00d0: 70 30 32 0a 74 6d 70 73 63 72 69 70 74 30 33 3d p02.tmpscript03=
00e0: 73 65 64 24 24 74 6d 70 30 33 0a 74 6d 70 73 63 sed$$tmp03.tmpsc
00f0: 72 69 70 74 30 34 3d 73 65 64 24 24 74 6d 70 30 ript04=sed$$tmp0
0100: 34 0a 74 6d 70 73 63 72 69 70 74 30 35 3d 73 65 4.tmpscript05=se
0110: 64 24 24 74 6d 70 30 35 0a 74 6d 70 73 63 72 69 d$$tmp05.tmpscri
0120: 70 74 30 36 3d 73 65 64 24 24 74 6d 70 30 36 0a pt06=sed$$tmp06.
0130: 74 6d 70 73 63 72 69 70 74 30 37 3d 73 65 64 24 tmpscript07=sed$
0140: 24 74 6d 70 30 37 0a 74 6d 70 73 63 72 69 70 74 $tmp07.tmpscript
0150: 30 38 3d 73 65 64 24 24 74 6d 70 30 38 0a 74 6d 08=sed$$tmp08.tm
0160: 70 73 63 72 69 70 74 30 39 3d 73 65 64 24 24 74 pscript09=sed$$t
0170: 6d 70 30 39 0a 74 6d 70 73 63 72 69 70 74 31 30 mp09.tmpscript10
0180: 3d 73 65 64 24 24 74 6d 70 31 30 0a 74 6d 70 73 =sed$$tmp10.tmps
0190: 63 72 69 70 74 31 31 3d 73 65 64 24 24 74 6d 70 cript11=sed$$tmp
01a0: 31 31 0a 74 6d 70 72 65 6d 6f 76 65 3d 27 72 6d 11.tmpremove='rm
01b0: 20 2d 66 20 24 74 6d 70 73 63 72 69 70 74 30 31 -f $tmpscript01
01c0: 20 24 74 6d 70 73 63 72 69 70 74 30 32 20 24 74 $tmpscript02 $t
01d0: 6d 70 73 63 72 69 70 74 30 33 20 24 74 6d 70 73 mpscript03 $tmps
01e0: 63 72 69 70 74 30 34 20 24 74 6d 70 73 63 72 69 cript04 $tmpscri
01f0: 70 74 30 35 20 24 74 6d 70 73 63 72 69 70 74 30 pt05 $tmpscript0
0200: 36 20 24 74 6d 70 73 63 72 69 70 74 30 37 20 24 6 $tmpscript07 $
0210: 74 6d 70 73 63 72 69 70 74 30 38 20 24 74 6d 70 tmpscript08 $tmp
0220: 73 63 72 69 70 74 30 39 20 24 74 6d 70 73 63 72 script09 $tmpscr
0230: 69 70 74 31 30 20 24 74 6d 70 73 63 72 69 70 74 ipt10 $tmpscript
0240: 31 31 27 0a 74 72 61 70 20 22 24 74 6d 70 72 65 11'.trap "$tmpre
0250: 6d 6f 76 65 22 20 31 20 32 20 31 35 0a 0a 63 61 move" 1 2 15..ca
0260: 74 20 3e 20 24 74 6d 70 73 63 72 69 70 74 30 31 t > $tmpscript01
0270: 20 3c 3c 20 5c 45 4f 46 0a 23 20 2d 2d 2d 2d 2d << \EOF.# -----
0280: 2d 2d 2d 2d 2d 2d 20 53 74 72 69 70 20 63 6f 6d ------ Strip com
0290: 6d 65 6e 74 73 0a 73 2c 23 20 2e 2a 2c 2c 0a 73 ments.s,# .*,,.s
02a0: 2c 5b 20 09 5d 5b 20 09 5d 2a 24 2c 2c 0a 45 4f ,[ .][ .]*$,,.EO
02b0: 46 0a 0a 63 61 74 20 3e 20 24 74 6d 70 73 63 72 F..cat > $tmpscr
02c0: 69 70 74 30 32 20 3c 3c 20 5c 45 4f 46 0a 23 20 ipt02 << \EOF.#
02d0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 52 65 6d 6f ----------- Remo
02e0: 76 65 20 23 41 50 50 2f 23 4e 4f 5f 41 50 50 20 ve #APP/#NO_APP
02f0: 6c 69 6e 65 73 2c 20 61 64 64 20 61 20 62 6c 61 lines, add a bla
0300: 6e 6b 20 6c 69 6e 65 20 61 74 20 74 68 65 20 65 nk line at the e
0310: 6e 64 0a 2f 5e 23 41 50 50 24 2f 64 0a 2f 5e 23 nd./^#APP$/d./^#
0320: 4e 4f 5f 41 50 50 24 2f 64 0a 2f 67 63 63 32 5f NO_APP$/d./gcc2_
0330: 63 6f 6d 70 69 6c 65 64 2f 64 0a 2f 67 6e 75 5f compiled/d./gnu_
0340: 63 6f 6d 70 69 6c 65 64 5f 63 2f 64 0a 45 4f 46 compiled_c/d.EOF
0350: 0a 0a 63 61 74 20 3e 20 24 74 6d 70 73 63 72 69 ..cat > $tmpscri
0360: 70 74 30 33 20 3c 3c 20 5c 45 4f 46 0a 23 20 2d pt03 << \EOF.# -
0370: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 47 6c 6f 62 61 ---------- Globa
0380: 6c 20 73 79 6d 62 6f 6c 73 20 64 65 70 65 6e 64 l symbols depend
0390: 73 20 6f 6e 20 41 53 4d 5f 55 4e 44 45 52 53 43 s on ASM_UNDERSC
03a0: 4f 52 45 0a 73 2f 5f 5c 28 5b 41 2d 5a 61 2d 7a ORE.s/_\([A-Za-z
03b0: 30 2d 39 5f 3a 5d 2a 5c 29 2f 43 28 5c 31 29 2f 0-9_:]*\)/C(\1)/
03c0: 0a 45 4f 46 0a 0a 63 61 74 20 3e 20 24 74 6d 70 .EOF..cat > $tmp
03d0: 73 63 72 69 70 74 30 34 20 3c 3c 20 5c 45 4f 46 script04 << \EOF
03e0: 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 49 .# ----------- I
03f0: 6e 74 72 6f 64 75 63 65 20 6d 61 63 72 6f 20 73 ntroduce macro s
0400: 79 6e 74 61 78 20 66 6f 72 20 6f 70 65 72 61 6e yntax for operan
0410: 64 73 0a 73 2f 5c 28 5b 2d 2b 30 2d 39 41 2d 5a ds.s/\([-+0-9A-Z
0420: 5f 5d 5c 2b 5c 29 5b 28 5d 25 5c 28 65 2e 2e 5c _]\+\)[(]%\(e..\
0430: 29 5b 29 5d 2f 4d 45 4d 5f 44 49 53 50 28 5c 32 )[)]/MEM_DISP(\2
0440: 2c 5c 31 29 2f 67 0a 73 2f 5b 28 5d 25 5c 28 65 ,\1)/g.s/[(]%\(e
0450: 2e 2e 5c 29 5b 29 5d 2f 4d 45 4d 28 5c 31 29 2f ..\)[)]/MEM(\1)/
0460: 67 0a 73 2f 5c 28 5b 2d 2b 30 2d 39 41 2d 5a 5f g.s/\([-+0-9A-Z_
0470: 5d 5c 2b 5c 29 5b 28 5d 2c 25 5c 28 65 2e 2e 5c ]\+\)[(],%\(e..\
0480: 29 2c 5c 28 5b 30 2d 39 5d 2a 5c 29 5b 29 5d 2f ),\([0-9]*\)[)]/
0490: 4d 45 4d 5f 44 49 53 50 5f 53 48 49 4e 44 45 58 MEM_DISP_SHINDEX
04a0: 30 28 5c 31 2c 5c 32 2c 5c 33 29 2f 67 0a 73 2f 0(\1,\2,\3)/g.s/
04b0: 5c 28 5b 2d 2b 30 2d 39 41 2d 5a 5f 5d 5c 2b 5c \([-+0-9A-Z_]\+\
04c0: 29 5b 28 5d 25 5c 28 65 2e 2e 5c 29 2c 25 5c 28 )[(]%\(e..\),%\(
04d0: 65 2e 2e 5c 29 2c 5c 28 5b 30 2d 39 5d 2a 5c 29 e..\),\([0-9]*\)
04e0: 5b 29 5d 2f 4d 45 4d 5f 44 49 53 50 5f 53 48 49 [)]/MEM_DISP_SHI
04f0: 4e 44 45 58 28 5c 32 2c 5c 31 2c 5c 33 2c 5c 34 NDEX(\2,\1,\3,\4
0500: 29 2f 67 0a 73 2f 5b 28 5d 25 5c 28 65 2e 2e 5c )/g.s/[(]%\(e..\
0510: 29 2c 25 5c 28 65 2e 2e 5c 29 2c 5c 28 5b 30 2d ),%\(e..\),\([0-
0520: 39 5d 2a 5c 29 5b 29 5d 2f 4d 45 4d 5f 53 48 49 9]*\)[)]/MEM_SHI
0530: 4e 44 45 58 28 5c 31 2c 5c 32 2c 5c 33 29 2f 67 NDEX(\1,\2,\3)/g
0540: 0a 73 2f 5b 28 5d 25 5c 28 65 2e 2e 5c 29 2c 25 .s/[(]%\(e..\),%
0550: 5c 28 65 2e 2e 5c 29 5b 29 5d 2f 4d 45 4d 5f 49 \(e..\)[)]/MEM_I
0560: 4e 44 45 58 28 5c 31 2c 5c 32 29 2f 67 0a 45 4f NDEX(\1,\2)/g.EO
0570: 46 0a 0a 63 61 74 20 3e 20 24 74 6d 70 73 63 72 F..cat > $tmpscr
0580: 69 70 74 30 35 20 3c 3c 20 5c 45 4f 46 0a 23 20 ipt05 << \EOF.#
0590: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 49 6e 74 72 ----------- Intr
05a0: 6f 64 75 63 65 20 6d 61 63 72 6f 20 73 79 6e 74 oduce macro synt
05b0: 61 78 20 66 6f 72 20 69 6e 73 74 72 75 63 74 69 ax for instructi
05c0: 6f 6e 73 0a 73 2f 5c 28 70 75 73 68 5c 7c 70 6f ons.s/\(push\|po
05d0: 70 5c 7c 6d 75 6c 5c 7c 64 69 76 5c 7c 6e 6f 74 p\|mul\|div\|not
05e0: 5c 7c 6e 65 67 5c 7c 69 6e 63 5c 7c 64 65 63 5c \|neg\|inc\|dec\
05f0: 7c 66 6c 64 5c 7c 66 73 74 70 5c 29 5c 28 2e 5c |fld\|fstp\)\(.\
0600: 29 5c 28 20 5c 2b 5c 29 5c 28 2e 2a 5c 29 24 2f )\( \+\)\(.*\)$/
0610: 49 4e 53 4e 31 28 5c 31 2c 5c 32 09 2c 5c 34 29 INSN1(\1,\2.,\4)
0620: 2f 0a 73 2f 5c 28 63 61 6c 6c 5c 7c 6a 6d 70 5c /.s/\(call\|jmp\
0630: 7c 6a 63 5c 7c 6a 6e 63 5c 7c 6a 65 5c 7c 6a 6e |jc\|jnc\|je\|jn
0640: 65 5c 7c 6a 7a 5c 7c 6a 6e 7a 5c 7c 6a 61 5c 7c e\|jz\|jnz\|ja\|
0650: 6a 61 65 5c 7c 6a 62 5c 7c 6a 62 65 5c 7c 6a 6c jae\|jb\|jbe\|jl
0660: 5c 7c 6a 67 65 5c 7c 6a 73 5c 7c 6a 6e 73 5c 29 \|jge\|js\|jns\)
0670: 5c 28 20 5c 2b 5c 29 5c 28 2e 2a 5c 29 24 2f 49 \( \+\)\(.*\)$/I
0680: 4e 53 4e 31 28 5c 31 2c 5f 09 2c 5c 33 29 2f 0a NSN1(\1,_.,\3)/.
0690: 73 2f 5c 28 6d 6f 76 73 5c 7c 6d 6f 76 7a 5c 29 s/\(movs\|movz\)
06a0: 5c 28 2e 5c 29 6c 5c 28 20 5c 2b 5c 29 5c 28 2e \(.\)l\( \+\)\(.
06b0: 2a 5c 29 24 2f 49 4e 53 4e 32 4d 4f 56 58 28 5c *\)$/INSN2MOVX(\
06c0: 31 2c 5c 32 09 2c 5c 34 29 2f 0a 73 2f 5c 28 6d 1,\2.,\4)/.s/\(m
06d0: 6f 76 5c 7c 61 64 64 5c 7c 73 75 62 5c 7c 61 64 ov\|add\|sub\|ad
06e0: 63 5c 7c 73 62 62 5c 7c 78 6f 72 5c 7c 74 65 73 c\|sbb\|xor\|tes
06f0: 74 5c 7c 63 6d 70 5c 7c 72 63 6c 5c 7c 72 63 72 t\|cmp\|rcl\|rcr
0700: 5c 7c 61 6e 64 5c 7c 6f 72 5c 7c 73 61 72 5c 7c \|and\|or\|sar\|
0710: 73 68 72 5c 7c 73 68 6c 5c 7c 6c 65 61 5c 29 5c shr\|shl\|lea\)\
0720: 28 2e 5c 29 5c 28 20 5c 2b 5c 29 5c 28 2e 2a 5c (.\)\( \+\)\(.*\
0730: 29 24 2f 49 4e 53 4e 32 28 5c 31 2c 5c 32 09 2c )$/INSN2(\1,\2.,
0740: 5c 34 29 2f 0a 73 2f 5c 28 73 68 6c 64 5c 7c 73 \4)/.s/\(shld\|s
0750: 68 72 64 5c 29 5c 28 2e 5c 29 5c 28 20 5c 2b 5c hrd\)\(.\)\( \+\
0760: 29 73 68 63 6c 5c 28 20 5c 2b 5c 29 5c 28 2e 2a )shcl\( \+\)\(.*
0770: 5c 29 24 2f 49 4e 53 4e 32 53 48 43 4c 28 5c 31 \)$/INSN2SHCL(\1
0780: 2c 5c 32 09 2c 5c 35 29 2f 0a 73 2f 72 65 70 20 ,\2.,\5)/.s/rep
0790: 3b 2f 52 45 50 2f 0a 73 2f 72 65 70 7a 20 3b 2f ;/REP/.s/repz ;/
07a0: 52 45 50 5a 2f 0a 45 4f 46 0a 0a 63 61 74 20 3e REPZ/.EOF..cat >
07b0: 20 24 74 6d 70 73 63 72 69 70 74 30 36 20 3c 3c $tmpscript06 <<
07c0: 20 5c 45 4f 46 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d \EOF.# --------
07d0: 2d 2d 2d 20 41 64 64 20 73 69 7a 65 20 70 72 65 --- Add size pre
07e0: 66 69 78 65 73 20 74 6f 20 6d 65 6d 6f 72 79 20 fixes to memory
07f0: 72 65 66 65 72 65 6e 63 65 73 27 20 5c 0a 73 2f references' \.s/
0800: 5c 28 5b 28 5d 66 5b 5e 28 2c 5d 2a 2c 73 2e 2a \([(]f[^(,]*,s.*
0810: 5c 29 2c 4d 45 4d 2f 5c 31 2c 58 34 20 4d 45 4d \),MEM/\1,X4 MEM
0820: 2f 67 0a 73 2f 5c 28 5b 28 5d 66 5b 5e 28 2c 5d /g.s/\([(]f[^(,]
0830: 2a 2c 6c 2e 2a 5c 29 2c 4d 45 4d 2f 5c 31 2c 58 *,l.*\),MEM/\1,X
0840: 38 20 4d 45 4d 2f 67 0a 73 2f 5c 28 5b 28 5d 5b 8 MEM/g.s/\([(][
0850: 5e 28 2c 5d 2a 2c 62 2e 2a 5c 29 2c 4d 45 4d 2f ^(,]*,b.*\),MEM/
0860: 5c 31 2c 58 31 20 4d 45 4d 2f 67 0a 73 2f 5c 28 \1,X1 MEM/g.s/\(
0870: 5b 28 5d 5b 5e 28 2c 5d 2a 2c 77 2e 2a 5c 29 2c [(][^(,]*,w.*\),
0880: 4d 45 4d 2f 5c 31 2c 58 32 20 4d 45 4d 2f 67 0a MEM/\1,X2 MEM/g.
0890: 73 2f 5c 28 5b 28 5d 5b 5e 28 2c 5d 2a 2c 6c 2e s/\([(][^(,]*,l.
08a0: 2a 5c 29 2c 4d 45 4d 2f 5c 31 2c 58 34 20 4d 45 *\),MEM/\1,X4 ME
08b0: 4d 2f 67 0a 45 4f 46 0a 0a 63 61 74 20 3e 20 24 M/g.EOF..cat > $
08c0: 74 6d 70 73 63 72 69 70 74 30 37 20 3c 3c 20 5c tmpscript07 << \
08d0: 45 4f 46 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d EOF.# ----------
08e0: 2d 20 49 6e 74 72 6f 64 75 63 65 20 6d 61 63 72 - Introduce macr
08f0: 6f 20 73 79 6e 74 61 78 20 66 6f 72 20 72 65 67 o syntax for reg
0900: 69 73 74 65 72 20 6e 61 6d 65 73 0a 73 2f 25 5c ister names.s/%\
0910: 28 65 2e 2e 5c 29 2f 52 28 5c 31 29 2f 67 0a 73 (e..\)/R(\1)/g.s
0920: 2f 25 5c 28 2e 2e 5c 29 2f 52 28 5c 31 29 2f 67 /%\(..\)/R(\1)/g
0930: 0a 73 2f 5c 24 5c 28 5b 2d 30 2d 39 5d 2a 5c 29 .s/\$\([-0-9]*\)
0940: 2f 4e 55 4d 28 5c 31 29 2f 67 0a 45 4f 46 0a 0a /NUM(\1)/g.EOF..
0950: 63 61 74 20 3e 20 24 74 6d 70 73 63 72 69 70 74 cat > $tmpscript
0960: 30 38 20 3c 3c 20 5c 45 4f 46 0a 23 20 2d 2d 2d 08 << \EOF.# ---
0970: 2d 2d 2d 2d 2d 2d 2d 2d 20 54 72 65 61 74 20 74 -------- Treat t
0980: 61 62 6c 65 20 6a 75 6d 70 73 20 28 68 61 69 72 able jumps (hair
0990: 79 29 0a 23 20 28 4e 65 65 64 65 64 20 62 65 63 y).# (Needed bec
09a0: 61 75 73 65 20 74 68 65 20 4d 53 56 43 20 69 6e ause the MSVC in
09b0: 6c 69 6e 65 20 61 73 73 65 6d 62 6c 65 72 20 64 line assembler d
09c0: 6f 65 73 20 6e 6f 74 20 68 61 76 65 20 70 73 65 oes not have pse
09d0: 75 64 6f 2d 6f 70 73 2e 0a 23 20 4e 6f 74 65 20 udo-ops..# Note
09e0: 74 68 61 74 20 77 65 20 74 72 61 6e 73 66 6f 72 that we transfor
09f0: 6d 20 61 20 74 61 62 6c 65 20 6f 66 20 61 62 73 m a table of abs
0a00: 6f 6c 75 74 65 20 61 64 64 72 65 73 73 65 73 20 olute addresses
0a10: 77 69 74 68 20 34 20 62 79 74 65 73 0a 23 20 70 with 4 bytes.# p
0a20: 65 72 20 65 6e 74 72 79 20 69 6e 74 6f 20 61 20 er entry into a
0a30: 74 61 62 6c 65 20 6f 66 20 61 62 73 6f 6c 75 74 table of absolut
0a40: 65 20 61 64 64 72 65 73 73 65 73 20 77 69 74 68 e addresses with
0a50: 20 38 20 62 79 74 65 73 20 70 65 72 20 65 6e 74 8 bytes per ent
0a60: 72 79 2e 29 0a 73 2f 5e 09 5c 2e 6c 6f 6e 67 20 ry.).s/^.\.long
0a70: 5c 28 2e 2a 5c 29 24 2f 23 69 66 64 65 66 20 5f \(.*\)$/#ifdef _
0a80: 4d 53 43 5f 56 45 52 5c 0a 09 6e 6f 70 5c 0a 09 MSC_VER\..nop\..
0a90: 6e 6f 70 5c 0a 09 70 75 73 68 20 5c 31 5c 0a 23 nop\..push \1\.#
0aa0: 65 6c 73 65 5c 0a 09 2e 6c 6f 6e 67 20 5c 31 5c else\...long \1\
0ab0: 0a 23 65 6e 64 69 66 2f 0a 73 2f 5e 09 5c 28 49 .#endif/.s/^.\(I
0ac0: 4e 53 4e 31 5b 28 5d 6a 6d 70 2c 5f 5b 5e 2c 5d NSN1[(]jmp,_[^,]
0ad0: 2a 2c 5c 29 5c 2a 4d 45 4d 5f 44 49 53 50 5f 53 *,\)\*MEM_DISP_S
0ae0: 48 49 4e 44 45 58 30 5b 28 5d 5c 28 5b 5e 2c 29 HINDEX0[(]\([^,)
0af0: 5d 2a 5c 29 2c 5c 28 5b 5e 2c 29 5d 2a 5c 29 2c ]*\),\([^,)]*\),
0b00: 34 5b 29 5d 5b 29 5d 24 2f 23 69 66 64 65 66 20 4[)][)]$/#ifdef
0b10: 5f 4d 53 43 5f 56 45 52 5c 0a 09 49 4e 53 4e 32 _MSC_VER\..INSN2
0b20: 28 6c 65 61 2c 6c 09 2c 4d 45 4d 5f 44 49 53 50 (lea,l.,MEM_DISP
0b30: 5f 53 48 49 4e 44 45 58 30 28 5c 32 2b 38 2c 5c _SHINDEX0(\2+8,\
0b40: 33 2c 38 29 2c 52 28 5c 33 29 29 5c 0a 09 49 4e 3,8),R(\3))\..IN
0b50: 53 4e 32 28 6d 6f 76 2c 6c 09 2c 58 34 20 4d 45 SN2(mov,l.,X4 ME
0b60: 4d 5f 44 49 53 50 28 5c 33 2c 2d 34 29 2c 52 28 M_DISP(\3,-4),R(
0b70: 5c 33 29 29 5c 0a 09 49 4e 53 4e 31 28 6a 6d 70 \3))\..INSN1(jmp
0b80: 2c 5f 09 2c 49 4e 44 49 52 28 52 28 5c 33 29 29 ,_.,INDIR(R(\3))
0b90: 29 5c 0a 23 65 6c 73 65 5c 0a 09 5c 31 49 4e 44 )\.#else\..\1IND
0ba0: 49 52 28 4d 45 4d 5f 44 49 53 50 5f 53 48 49 4e IR(MEM_DISP_SHIN
0bb0: 44 45 58 30 28 5c 32 2c 5c 33 2c 34 29 29 29 5c DEX0(\2,\3,4)))\
0bc0: 0a 23 65 6e 64 69 66 2f 0a 45 4f 46 0a 0a 63 61 .#endif/.EOF..ca
0bd0: 74 20 3e 20 24 74 6d 70 73 63 72 69 70 74 30 39 t > $tmpscript09
0be0: 20 3c 3c 20 5c 45 4f 46 0a 23 20 2d 2d 2d 2d 2d << \EOF.# -----
0bf0: 2d 2d 2d 2d 2d 2d 20 54 72 65 61 74 20 69 6e 64 ------ Treat ind
0c00: 69 72 65 63 74 20 63 61 6c 6c 73 0a 73 2f 5c 28 irect calls.s/\(
0c10: 49 4e 53 4e 31 5b 28 5d 5c 28 63 61 6c 6c 5c 7c INSN1[(]\(call\|
0c20: 6a 6d 70 5c 29 2c 5f 5b 5e 2c 5d 2a 2c 5c 29 5c jmp\),_[^,]*,\)\
0c30: 2a 5c 28 52 5b 28 5d 5b 5e 29 5d 2a 5b 29 5d 5c *\(R[(][^)]*[)]\
0c40: 29 5b 29 5d 24 2f 5c 31 49 4e 44 49 52 28 5c 33 )[)]$/\1INDIR(\3
0c50: 29 29 2f 0a 45 4f 46 0a 0a 63 61 74 20 3e 20 24 ))/.EOF..cat > $
0c60: 74 6d 70 73 63 72 69 70 74 31 30 20 3c 3c 20 5c tmpscript10 << \
0c70: 45 4f 46 0a 23 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d EOF.# ----------
0c80: 2d 20 49 6e 74 72 6f 64 75 63 65 20 6d 61 63 72 - Introduce macr
0c90: 6f 20 73 79 6e 74 61 78 20 66 6f 72 20 61 73 73 o syntax for ass
0ca0: 65 6d 62 6c 65 72 20 70 73 65 75 64 6f 2d 6f 70 embler pseudo-op
0cb0: 73 0a 2f 5c 2e 66 69 6c 65 5c 28 5b 20 09 5d 5c s./\.file\([ .]\
0cc0: 2b 5c 29 2f 64 0a 73 2f 5c 2e 74 65 78 74 2f 54 +\)/d.s/\.text/T
0cd0: 45 58 54 28 29 2f 0a 73 2f 5e 5c 28 5b 5e 23 5d EXT()/.s/^\([^#]
0ce0: 2a 5c 29 5c 2e 61 6c 69 67 6e 20 5c 28 2e 2a 5c *\)\.align \(.*\
0cf0: 29 2f 5c 31 41 4c 49 47 4e 28 5c 32 29 2f 0a 73 )/\1ALIGN(\2)/.s
0d00: 2f 5c 2e 67 6c 6f 62 6c 5c 28 20 5c 2b 5c 29 5c /\.globl\( \+\)\
0d10: 28 2e 2a 5c 29 24 2f 47 4c 4f 42 4c 28 5c 32 29 (.*\)$/GLOBL(\2)
0d20: 2f 0a 73 2f 5e 43 28 5c 28 5b 41 2d 5a 61 2d 7a /.s/^C(\([A-Za-z
0d30: 30 2d 39 5f 5d 2a 5c 29 3a 29 2f 46 55 4e 42 45 0-9_]*\):)/FUNBE
0d40: 47 49 4e 28 5c 31 29 2f 0a 23 20 54 68 65 20 6e GIN(\1)/.# The n
0d50: 65 78 74 20 35 20 6c 69 6e 65 73 20 61 64 64 20 ext 5 lines add
0d60: 46 55 4e 45 4e 44 28 29 20 61 66 74 65 72 20 65 FUNEND() after e
0d70: 61 63 68 20 72 65 74 20 66 6f 6c 6c 6f 77 65 64 ach ret followed
0d80: 20 62 79 20 61 6e 20 65 6d 70 74 79 20 6c 69 6e by an empty lin
0d90: 65 0a 2f 5b 20 09 5d 72 65 74 20 2a 24 2f 7b 0a e./[ .]ret *$/{.
0da0: 6e 0a 2f 5e 24 2f 73 2f 5e 24 2f 46 55 4e 45 4e n./^$/s/^$/FUNEN
0db0: 44 28 29 5c 0a 2f 0a 7d 0a 45 4f 46 0a 0a 63 61 D()\./.}.EOF..ca
0dc0: 74 20 3e 20 24 74 6d 70 73 63 72 69 70 74 31 31 t > $tmpscript11
0dd0: 20 3c 3c 20 5c 45 4f 46 0a 23 20 2d 2d 2d 2d 2d << \EOF.# -----
0de0: 2d 2d 2d 2d 2d 2d 20 44 65 63 6c 61 72 65 20 67 ------ Declare g
0df0: 6c 6f 62 61 6c 20 73 79 6d 62 6f 6c 73 20 61 73 lobal symbols as
0e00: 20 66 75 6e 63 74 69 6f 6e 73 20 28 77 65 20 68 functions (we h
0e10: 61 76 65 20 6e 6f 20 76 61 72 69 61 62 6c 65 73 ave no variables
0e20: 29 0a 73 2f 47 4c 4f 42 4c 28 43 28 5c 28 5b 41 ).s/GLOBL(C(\([A
0e30: 2d 5a 61 2d 7a 30 2d 39 5f 5d 2a 5c 29 29 29 24 -Za-z0-9_]*\)))$
0e40: 2f 47 4c 4f 42 4c 28 43 28 5c 31 29 29 5c 0a 09 /GLOBL(C(\1))\..
0e50: 44 45 43 4c 41 52 45 5f 46 55 4e 43 54 49 4f 4e DECLARE_FUNCTION
0e60: 28 5c 31 29 2f 0a 45 4f 46 0a 0a 73 65 64 20 2d (\1)/.EOF..sed -
0e70: 66 20 24 74 6d 70 73 63 72 69 70 74 30 31 20 7c f $tmpscript01 |
0e80: 20 5c 0a 73 65 64 20 2d 66 20 24 74 6d 70 73 63 \.sed -f $tmpsc
0e90: 72 69 70 74 30 32 20 7c 20 5c 0a 28 63 61 74 20 ript02 | \.(cat
0ea0: 2d 20 3b 20 65 63 68 6f 29 20 7c 20 5c 0a 28 69 - ; echo) | \.(i
0eb0: 66 20 5b 20 24 23 20 3d 20 31 20 2d 61 20 22 78 f [ $# = 1 -a "x
0ec0: 24 31 22 20 3d 20 22 78 2d 6e 6f 2d 43 22 20 5d $1" = "x-no-C" ]
0ed0: 20 3b 20 74 68 65 6e 20 63 61 74 20 2d 20 3b 20 ; then cat - ;
0ee0: 65 6c 73 65 20 73 65 64 20 2d 66 20 24 74 6d 70 else sed -f $tmp
0ef0: 73 63 72 69 70 74 30 33 20 3b 20 66 69 29 20 7c script03 ; fi) |
0f00: 20 5c 0a 73 65 64 20 2d 66 20 24 74 6d 70 73 63 \.sed -f $tmpsc
0f10: 72 69 70 74 30 34 20 7c 20 5c 0a 73 65 64 20 2d ript04 | \.sed -
0f20: 66 20 24 74 6d 70 73 63 72 69 70 74 30 35 20 7c f $tmpscript05 |
0f30: 20 5c 0a 73 65 64 20 2d 66 20 24 74 6d 70 73 63 \.sed -f $tmpsc
0f40: 72 69 70 74 30 36 20 7c 20 5c 0a 73 65 64 20 2d ript06 | \.sed -
0f50: 66 20 24 74 6d 70 73 63 72 69 70 74 30 37 20 7c f $tmpscript07 |
0f60: 20 5c 0a 73 65 64 20 2d 66 20 24 74 6d 70 73 63 \.sed -f $tmpsc
0f70: 72 69 70 74 30 38 20 7c 20 5c 0a 73 65 64 20 2d ript08 | \.sed -
0f80: 66 20 24 74 6d 70 73 63 72 69 70 74 30 39 20 7c f $tmpscript09 |
0f90: 20 5c 0a 73 65 64 20 2d 66 20 24 74 6d 70 73 63 \.sed -f $tmpsc
0fa0: 72 69 70 74 31 30 20 7c 20 5c 0a 28 69 66 20 5b ript10 | \.(if [
0fb0: 20 24 23 20 3d 20 31 20 2d 61 20 22 78 24 31 22 $# = 1 -a "x$1"
0fc0: 20 3d 20 22 78 2d 6e 6f 2d 43 22 20 5d 20 3b 20 = "x-no-C" ] ;
0fd0: 74 68 65 6e 20 63 61 74 20 2d 20 3b 20 65 6c 73 then cat - ; els
0fe0: 65 20 73 65 64 20 2d 66 20 24 74 6d 70 73 63 72 e sed -f $tmpscr
0ff0: 69 70 74 31 31 20 3b 20 66 69 29 0a 0a 65 76 61 ipt11 ; fi)..eva
1000: 6c 20 22 24 74 6d 70 72 65 6d 6f 76 65 22 0a 0a l "$tmpremove"..