cc176e5183
inference routine to propagate information about floats up the tree, so we know whether to put floats into special registers as early as possible.
54 lines
856 B
Bash
Executable file
54 lines
856 B
Bash
Executable file
#!/bin/sh
|
|
|
|
in=$1
|
|
header=$2
|
|
source=$3
|
|
|
|
awk -f - $in >$header << "EOF"
|
|
BEGIN {
|
|
print "enum ir_opcode {"
|
|
}
|
|
|
|
/^ *[^# ]+/ {
|
|
print "\tIR_" $2 ","
|
|
}
|
|
|
|
END {
|
|
print "\tIR__COUNT"
|
|
print "};"
|
|
}
|
|
EOF
|
|
|
|
awk -f - $in >$source << "EOF"
|
|
BEGIN {
|
|
print "#include \"ircodes.h\""
|
|
print "const struct ir_data ir_data[IR__COUNT] = {"
|
|
}
|
|
|
|
function char_to_type(c) {
|
|
if (c == "I") return "IRT_INT"
|
|
if (c == "F") return "IRT_FLOAT"
|
|
if (c == "A") return "IRT_ANY"
|
|
return "IRT_UNSET"
|
|
}
|
|
|
|
function char_to_flags(c) {
|
|
if (c == "S") return "IRF_SIZED"
|
|
return "0"
|
|
}
|
|
|
|
/^ *[^# ]+/ {
|
|
printf("\t{ \"%s\", ", $2)
|
|
printf("%s, ", char_to_flags(substr($1, 1, 1)))
|
|
printf("%s, ", char_to_type(substr($1, 2, 1)))
|
|
printf("%s, ", char_to_type(substr($1, 3, 1)))
|
|
printf("%s", char_to_type(substr($1, 4, 1)))
|
|
printf(" },\n")
|
|
}
|
|
|
|
END {
|
|
print "};"
|
|
}
|
|
EOF
|
|
|