quakeforge/tools/qfcc/test/old/move.r
Bill Currie 49ca09a64f Clean up qfcc's test directory.
I don't remember what half these tests were for :/
2012-11-22 21:58:52 +09:00

26 lines
445 B
R

struct plitem_s {integer dummy;};
typedef struct plitem_s plitem_t;
typedef struct foo_s {
integer x;
plitem_t i;
} foo_t;
foo_t snafu (foo_t x) = #0;
foo_t zap (void) = #0;
foo_t aa[5];
foo_t x;
foo_t bar (foo_t *foo, plitem_t item)
{
// x = aa[foo.x];
// aa[foo.x + 1] = aa[foo.x - 1];
// aa[foo.x] = x;
// snafu (aa[foo.x]);
// aa[foo.x] = snafu (aa[foo.x]);
aa[foo.x] = zap ();
// foo.i = item;
// return aa[foo.x];
return zap ();
}