quakeforge/tools/qfcc/test/zerolinker.r
2020-03-30 19:02:54 +09:00

45 lines
912 B
R

#include <types.h>
// can't link against libr.a (may not be built)
void *PR_FindGlobal (string name) = #0;
void printf (string fmt, ...) = #0;
qfot_type_encodings_t *encodings;
qfot_type_t *
next_type (qfot_type_t *type)
{
int size = type.size;
if (!size)
size = 4;
return (qfot_type_t *) ((int *) type + size);
}
int
main (void)
{
int found_param = 0;
int found_zero = 0;
qfot_type_t *type;
encodings = PR_FindGlobal (".type_encodings");
for (type = encodings.types;
((int *)type - (int *) encodings.types) < encodings.size;
type = next_type (type)) {
if (type.meta == ty_union) {
if (type.strct.tag == "tag @param") {
found_param = 1;
}
if (type.strct.tag == "tag @zero") {
found_zero = 1;
}
}
}
if (!(found_param && found_zero)) {
printf ("missing struct: param: %d zero:%d\n",
found_param, found_zero);
return 1;
}
return 0;
}