version 1.134, 2003/08/15 16:47:43
|
version 1.135, 2003/08/16 19:46:11
|
Line 2259 av_call(alist);
|
Line 2259 av_call(alist);
|
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); |