quakeforge/tools/qfcc/test/old/move.r

27 lines
445 B
R
Raw Normal View History

2011-03-09 11:34:23 +00:00
struct plitem_s {integer dummy;};
typedef struct plitem_s plitem_t;
typedef struct foo_s {
integer x;
plitem_t i;
} foo_t;
2011-03-22 06:00:46 +00:00
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)
2011-03-09 11:34:23 +00:00
{
2011-03-22 06:00:46 +00:00
// 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 ();
2011-03-09 11:34:23 +00:00
}