1/* { dg-do compile } */
2/* { dg-require-effective-target int32plus } */
3/* { dg-require-effective-target label_values } */
4/* { dg-require-effective-target indirect_jumps } */
5
6typedef int int32_t;
7typedef unsigned char uint8_t;
8typedef unsigned long int uintptr_t;
9typedef uint8_t scm_t_uint8;
10typedef int32_t scm_t_int32;
11typedef uintptr_t scm_t_uintptr;
12typedef scm_t_uintptr scm_t_bits;
13typedef struct scm_unused_struct {
14} *SCM;
15enum scm_tc8_tags {
16    scm_tc8_flag = 4 + 0x00,   scm_tc8_char = 4 + 0x08,   scm_tc8_unused_0 = 4 + 0x10,   scm_tc8_unused_1 = 4 + 0x18 };
17struct __jmp_buf_tag   {
18};
19typedef struct __jmp_buf_tag jmp_buf[1];
20typedef struct scm_t_cell {
21} scm_t_cell;
22struct scm_prompt_registers {
23    jmp_buf regs;
24};
25enum {
26    SCM_VM_APPLY_HOOK,   SCM_VM_PUSH_CONTINUATION_HOOK,   SCM_VM_POP_CONTINUATION_HOOK,   SCM_VM_NEXT_HOOK,   SCM_VM_ABORT_CONTINUATION_HOOK,   SCM_VM_RESTORE_CONTINUATION_HOOK,   SCM_VM_NUM_HOOKS, };
27typedef SCM (*scm_t_vm_engine) (SCM vm, SCM program, SCM *argv, int nargs);
28struct scm_vm {
29    scm_t_uint8 *ip;
30    SCM *sp;
31    SCM *fp;
32    int engine;
33    int trace_level;
34};
35static SCM vm_regular_engine (SCM vm, SCM program, SCM *argv, int nargs) {
36}
37void vm_dispatch_hook ();
38int _setjmp ();
39static SCM vm_debug_engine (SCM vm, SCM program, SCM *argv, int nargs) {
40    register scm_t_uint8 *ip ;
41    register SCM *sp ;
42    register SCM *fp ;
43    struct scm_vm *vp = ((struct scm_vm *) ((((scm_t_bits) (0? (*(SCM*)0=((((SCM *)((scm_t_cell *) (((scm_t_bits) (0? (*(SCM*)0=((((vm))))): (((vm)))))))) [((1))]))): (((SCM *)((scm_t_cell *) (((scm_t_bits) (0? (*(SCM*)0=((((vm))))): (((vm)))))))) [((1))]))))));
44    static const void **jump_table_pointer = ((void *)0);
45    const void **jump_table;
46    if (__builtin_expect ((!jump_table_pointer), 0))     {
47	jump_table_pointer[0] = &&l_nop;
48    }
49l_nop:
50      {
51	SCM *old_sp;
52	scm_t_int32 n;
53	old_sp = sp;
54	sp = (fp - 1) + n;
55	if (old_sp < sp)     {
56	    while (old_sp < sp)         *++old_sp = ((SCM) ((((((9)) << 8) + scm_tc8_flag))));
57	}
58	  {
59	      { if (__builtin_expect ((vp->trace_level > 0), 0)) { { vp->ip = ip; vp->sp = sp; vp->fp = fp; }; vm_dispatch_hook (vm, SCM_VM_NEXT_HOOK); } };
60	  };
61      }
62      {
63	SCM k, prompt;
64	if ((_setjmp (((struct scm_prompt_registers*)((((scm_t_bits) (0? (*(SCM*)0=((((SCM *)((scm_t_cell *) (((scm_t_bits) (0? (*(SCM*)0=((((prompt))))): (((prompt)))))))) [((2))]))): (((SCM *)((scm_t_cell *) (((scm_t_bits) (0? (*(SCM*)0=((((prompt))))): (((prompt)))))))) [((2))]))))))->regs)))     {
65	      { ip = vp->ip; sp = vp->sp; fp = vp->fp; };
66	      { { if (__builtin_expect ((vp->trace_level > 0), 0)) { { vp->ip = ip; vp->sp = sp; vp->fp = fp; }; vm_dispatch_hook (vm, SCM_VM_NEXT_HOOK); } }; ; goto *jump_table[(*ip++) & ((1<<8)-1)]; };
67	}
68
69	if (__builtin_expect ((vp->trace_level > 0), 0)) { { vp->ip = ip; vp->sp = sp; vp->fp = fp; }; vm_dispatch_hook (vm, SCM_VM_NEXT_HOOK); } ;
70
71      }
72}
73static const scm_t_vm_engine vm_engines[] =   {
74    vm_regular_engine, vm_debug_engine };
75SCM scm_c_vm_run (SCM vm, SCM program, SCM *argv, int nargs) {
76    struct scm_vm *vp = ((struct scm_vm *) ((((scm_t_bits) (0? (*(SCM*)0=((((SCM *)((scm_t_cell *) (((scm_t_bits) (0? (*(SCM*)0=((((vm))))): (((vm)))))))) [((1))]))): (((SCM *)((scm_t_cell *) (((scm_t_bits) (0? (*(SCM*)0=((((vm))))): (((vm)))))))) [((1))]))))));
77    return vm_engines[vp->engine](vm, program, argv, nargs);
78}
79