URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [960117-1.c] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
static char id_space[2] [32 +1]; typedef short COUNT; typedef char TEXT; union T_VALS { TEXT *id __attribute__ ((aligned (2), packed)) ; }; typedef union T_VALS VALS; struct T_VAL { COUNT pos __attribute__ ((aligned (2), packed)) ; VALS vals __attribute__ ((aligned (2), packed)) ; }; typedef struct T_VAL VAL; VAL curval = {0}; static short idc = 0; static int cur_line; static int char_pos; typedef unsigned short WORD; WORD get_id (char c) { curval.vals.id[0] = c; } WORD get_tok () { char c = 'c'; curval.vals.id = id_space[idc]; curval.pos = (cur_line << 10) | char_pos; return get_id (c); } main () { get_tok (); exit (0); }
Go to most recent revision | Compare with Previous | Blame | View Log