qf/quakeforge
0
0
Fork 0
mirror of https://git.code.sf.net/p/quake/quakeforge synced 2024-11-23 04:42:32 +00:00
Code Issues Projects Releases Packages Wiki Activity

Support testing v6 progs.

Browse source 
v6 progs return float rather than int (they don't have int).
This commit is contained in:
Bill Currie 2012-11-22 20:47:18 +09:00
parent eef399209d
commit 47decd58d0
2 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tools/qfcc/test/build-run
View file

@ -6,6 +6,6 @@ shift
cat > $script <<EOF
#! /bin/sh
./test-harness \$TEST_HARNESS_OPTS $progs "\$@"
./test-harness $TEST_HARNESS_OPTS $progs "\$@"
EOF
chmod +x $script

9
tools/qfcc/test/test-harness.c
View file

@ -52,10 +52,12 @@
enum {
start_opts = 255, // not used, starts the enum.
OPT_DEVELOPER,
OPT_FLOAT,
};
static struct option const long_options[] = {
{"developer", required_argument, 0, OPT_DEVELOPER},
{"float", no_argument, 0, OPT_FLOAT},
{"trace", no_argument, 0, 't'},
{"help", no_argument, 0, 'h'},
{"version", no_argument, 0, 'V'},
@ -77,6 +79,7 @@ static const char *this_program;
static struct {
int developer;
int trace;
int flote;
} options;
static QFile *
@ -177,6 +180,7 @@ usage (int exitval)
printf (
"Options:\n"
" --developer FLAGS Set the developer cvar to FLAGS.\n"
" --float main () returns float instead of int.\n"
" -h, --help Display this help and exit\n"
" -t, --trace Set the trace flag in the VM.\n"
" -V, --version Output version information and exit\n"
@ -196,6 +200,9 @@ parse_options (int argc, char **argv)
case OPT_DEVELOPER:
options.developer = atoi (optarg);
break;
case OPT_FLOAT:
options.flote = 1;
break;
case 't':
options.trace = 1;
break;
@ -252,5 +259,7 @@ main (int argc, char **argv)
P_POINTER (&pr, 1) = PR_SetPointer (&pr, pr_argv);
PR_ExecuteProgram (&pr, main_func);
PR_PopFrame (&pr);
if (options.flote)
return R_FLOAT (&pr);
return R_INT (&pr);
}