| REST_REGS |
REST_REGS |
| c_addr = prv; |
c_addr = prv; |
| |
|
| alloc-callback ( xt -- c_addr ) gforth alloc_callback |
alloc-callback ( a_ip -- c_addr ) gforth alloc_callback |
| c_addr = (char *)alloc_callback(engine_callback, ((Xt *)xt)+2); |
c_addr = (char *)alloc_callback(engine_callback, (Xt *)a_ip); |
| |
|
| va-start-int ( -- w ) gforth va_start_int |
va-start-void ( -- ) gforth va_start_void |
| w = va_start_int(clist); |
va_start_void(clist); |
| |
|
| va-start-longlong ( -- d ) gforth va_start_longlong |
va-start-int ( -- ) gforth va_start_int |
| d = va_start_longlong(clist); |
va_start_int(clist); |
| |
|
| va-start-ptr ( -- c_addr ) gforth va_start_ptr |
va-start-longlong ( -- ) gforth va_start_longlong |
| c_addr = (char *)va_start_ptr(clist, (char *)); |
va_start_longlong(clist); |
| |
|
| va-start-float ( -- r ) gforth va_start_float |
va-start-ptr ( -- ) gforth va_start_ptr |
| r = va_start_float(clist); |
va_start_ptr(clist, (char *)); |
| |
|
| va-start-double ( -- r ) gforth va_start_double |
va-start-float ( -- ) gforth va_start_float |
| r = va_start_double(clist); |
va_start_float(clist); |
| |
|
| |
va-start-double ( -- ) gforth va_start_double |
| |
va_start_double(clist); |
| |
|
| |
va-arg-int ( -- w ) gforth va_arg_int |
| |
w = va_arg_int(clist); |
| |
|
| |
va-arg-longlong ( -- d ) gforth va_arg_longlong |
| |
d = va_arg_longlong(clist); |
| |
|
| |
va-arg-ptr ( -- c_addr ) gforth va_arg_ptr |
| |
c_addr = (char *)va_arg_ptr(clist,char*); |
| |
|
| |
va-arg-float ( -- r ) gforth va_arg_float |
| |
r = va_arg_float(clist); |
| |
|
| |
va-arg-double ( -- r ) gforth va_arg_double |
| |
r = va_arg_double(clist); |
| |
|
| va-return-void ( -- ) gforth va_return_void |
va-return-void ( -- ) gforth va_return_void |
| va_return_void(clist); |
va_return_void(clist); |
