~ubuntu-branches/debian/squeeze/ffcall/squeeze

tmpremove='rm -f $tmpscript01 $tmpscript02 $tmpscript03 $tmpscript04 $tmpscript05 $tmpscript06 $tmpscript07 $tmpscript08 $tmpscript09 $tmpscript10 $tmpscript11'

trap "$tmpremove" 1 2 15

cat > $tmpscript01 << \EOF

# ----------- Strip comments

s,# .*,,

s,[ ][ ]*$,,

EOF

cat > $tmpscript02 << \EOF

# ----------- Remove #APP/#NO_APP lines, add a blank line at the end

/^#APP$/d

/^#NO_APP$/d

/gcc2_compiled/d

/gnu_compiled_c/d

EOF

cat > $tmpscript03 << \EOF

# ----------- Global symbols depends on ASM_UNDERSCORE

s/_$[A-Za-z0-9_:]*$/C(\1)/

EOF

cat > $tmpscript04 << \EOF

# ----------- Introduce macro syntax for operands

s/$[-+0-9A-Z_]\+$[(]%$e..$[)]/MEM_DISP(\2,\1)/g

s/[(]%$e..$[)]/MEM(\1)/g

s/$[-+0-9A-Z_]\+$[(],%$e..$,$[0-9]*$[)]/MEM_DISP_SHINDEX0(\1,\2,\3)/g

s/$[-+0-9A-Z_]\+$[(]%$e..$,%$e..$,$[0-9]*$[)]/MEM_DISP_SHINDEX(\2,\1,\3,\4)/g

s/[(]%$e..$,%$e..$,$[0-9]*$[)]/MEM_SHINDEX(\1,\2,\3)/g

s/[(]%$e..$,%$e..$[)]/MEM_INDEX(\1,\2)/g

EOF

cat > $tmpscript05 << \EOF

# ----------- Introduce macro syntax for instructions

s/$push\|pop\|mul\|div\|not\|neg\|inc\|dec\|fld\|fstp$$.$$ \+$$.*$$/INSN1(\1,\2 ,\4)/

s/$call\|jmp\|jc\|jnc\|je\|jne\|jz\|jnz\|ja\|jae\|jb\|jbe\|jl\|jge\|js\|jns$$ \+$$.*$$/INSN1(\1,_ ,\3)/

s/$movs\|movz$$.$l$ \+$$.*$$/INSN2MOVX(\1,\2 ,\4)/

s/$mov\|add\|sub\|adc\|sbb\|xor\|test\|cmp\|rcl\|rcr\|and\|or\|sar\|shr\|shl\|lea$$.$$ \+$$.*$$/INSN2(\1,\2 ,\4)/

s/$shld\|shrd$$.$$ \+$shcl$ \+$$.*$$/INSN2SHCL(\1,\2 ,\5)/

s/rep ;/REP/

s/repz ;/REPZ/

EOF

cat > $tmpscript06 << \EOF

# ----------- Add size prefixes to memory references' \

s/$[(]f[^(,]*,s.*$,MEM/\1,X4 MEM/g

s/$[(]f[^(,]*,l.*$,MEM/\1,X8 MEM/g

s/$[(][^(,]*,b.*$,MEM/\1,X1 MEM/g

s/$[(][^(,]*,w.*$,MEM/\1,X2 MEM/g

s/$[(][^(,]*,l.*$,MEM/\1,X4 MEM/g

EOF

cat > $tmpscript07 << \EOF

# ----------- Introduce macro syntax for register names

s/%$e..$/R(\1)/g

s/%$..$/R(\1)/g

s/\$$[-0-9]*$/NUM(\1)/g

EOF

cat > $tmpscript08 << \EOF

# ----------- Treat table jumps (hairy)

# (Needed because the MSVC inline assembler does not have pseudo-ops.

# Note that we transform a table of absolute addresses with 4 bytes

# per entry into a table of absolute addresses with 8 bytes per entry.)

s/^ \.long $.*$$/#ifdef _MSC_VER\

nop\

push \1\

#else\

.long \1\

#endif/

s/^ $INSN1[(]jmp,_[^,]*,$\*MEM_DISP_SHINDEX0[(]$[^,)]*$,$[^,)]*$,4[)][)]$/#ifdef _MSC_VER\

INSN2(lea,l ,MEM_DISP_SHINDEX0(\2+8,\3,8),R(\3))\

INSN2(mov,l ,X4 MEM_DISP(\3,-4),R(\3))\

INSN1(jmp,_ ,INDIR(R(\3)))\

#else\

\1INDIR(MEM_DISP_SHINDEX0(\2,\3,4)))\

#endif/

EOF

cat > $tmpscript09 << \EOF

# ----------- Treat indirect calls

s/$INSN1[(]\(call\|jmp$,_[^,]*,\)\*$R[(][^)]*[)]$[)]$/\1INDIR(\3))/

100

EOF

101

102

cat > $tmpscript10 << \EOF

103

# ----------- Introduce macro syntax for assembler pseudo-ops

104

/\.file$[ ]\+$/d

105

s/\.text/TEXT()/

106

s/^$[^#]*$\.align $.*$/\1ALIGN(\2)/

107

s/\.globl$ \+$$.*$$/GLOBL(\2)/

108

s/^C($[A-Za-z0-9_]*$:)/FUNBEGIN(\1)/

109

# The next 5 lines add FUNEND() after each ret followed by an empty line

110

/[ ]ret *$/{

111

112

/^$/s/^$/FUNEND()\

113

114

}

115

EOF

116

117

cat > $tmpscript11 << \EOF

118

# ----------- Declare global symbols as functions (we have no variables)

119

s/GLOBL(C($[A-Za-z0-9_]*$))$/GLOBL(C(\1))\

120

DECLARE_FUNCTION(\1)/

121

EOF

122

123

sed -f $tmpscript01 | \

124

sed -f $tmpscript02 | \

125

(cat - ; echo) | \

126

(if [ $# = 1 -a "x$1" = "x-no-C" ] ; then cat - ; else sed -f $tmpscript03 ; fi) | \

127

sed -f $tmpscript04 | \

128

sed -f $tmpscript05 | \

129

sed -f $tmpscript06 | \

130

sed -f $tmpscript07 | \

131

sed -f $tmpscript08 | \

132

sed -f $tmpscript09 | \

133

sed -f $tmpscript10 | \

134

(if [ $# = 1 -a "x$1" = "x-no-C" ] ; then cat - ; else sed -f $tmpscript11 ; fi)

135

136

eval "$tmpremove"

137

Older »