glibc/scripts/gen-as-const.awk
Ulrich Drepper 299f7b0ffc * scripts/gen-as-const.awk: Add cast to long to avoid int promotion
of values on 64-bit platforms which are too large.
2007-01-19 01:02:19 +00:00

53 lines
1.5 KiB
Awk

# Script used in producing headers of assembly constants from C expressions.
# The input to this script looks like:
# #cpp-directive ...
# NAME1
# NAME2 expression ...
# The output of this script is C code to be run through gcc -S and then
# massaged to extract the integer constant values of the given C expressions.
# A line giving just a name implies an expression consisting of just that name.
BEGIN { started = 0 }
# cpp directives go straight through.
/^#/ { print; next }
NF >= 1 && !started {
if (test) {
print "\n#include <stdio.h>";
print "\nstatic int do_test (void)\n{\n int bad = 0, good = 0;\n";
print "#define TEST(name, source, expr) \\\n" \
" if (asconst_##name != (expr)) { ++bad;" \
" fprintf (stderr, \"%s: %s is %ld but %s is %ld\\n\"," \
" source, #name, (long int) asconst_##name, #expr, (long int) (expr));" \
" } else ++good;\n";
}
else
print "void dummy(void) {";
started = 1;
}
# Separator.
$1 == "--" { next }
NF == 1 { sub(/^.*$/, "& &"); }
NF > 1 {
name = $1;
sub(/^[^ ]+[ ]+/, "");
if (test)
print " TEST (" name ", \"" FILENAME ":" FNR "\", " $0 ")";
else
printf "asm (\"@@@name@@@%s@@@value@@@%%0@@@end@@@\" : : \"i\" ((long) %s));\n",
name, $0;
}
END {
if (test) {
print " printf (\"%d errors in %d tests\\n\", bad, good + bad);"
print " return bad != 0 || good == 0;\n}\n";
print "#define TEST_FUNCTION do_test ()";
}
else if (started) print "}";
}