[BACK]Return to prim CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/prim between versions 1.132 and 1.135

version 1.132, 2003/08/07 08:50:00 version 1.135, 2003/08/16 19:46:11
Line 1561  c_addr = strerror(n); Line 1561  c_addr = strerror(n);
 u = strlen(c_addr);  u = strlen(c_addr);
   
 strsignal       ( n -- c_addr u )       gforth  strsignal       ( n -- c_addr u )       gforth
 c_addr = strsignal(n);  c_addr = (Address)strsignal(n);
 u = strlen(c_addr);  u = strlen(c_addr);
   
 call-c  ( w -- )        gforth  call_c  call-c  ( w -- )        gforth  call_c
Line 2232  REST_REGS Line 2232  REST_REGS
 av-call-int    ( -- w )        gforth  av_call_int  av-call-int    ( -- w )        gforth  av_call_int
 SAVE_REGS  SAVE_REGS
 av_call(alist);  av_call(alist);
   REST_REGS
 w = irv;  w = irv;
   
 av-call-float   ( -- r )        gforth  av_call_float  av-call-float   ( -- r )        gforth  av_call_float
Line 2258  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-void   ( -- )  gforth  va_start_void
   va_start_void(clist);
   
   va-start-int    ( -- )  gforth  va_start_int
   va_start_int(clist);
   
   va-start-longlong       ( -- )  gforth  va_start_longlong
   va_start_longlong(clist);
   
   va-start-ptr    ( -- )  gforth  va_start_ptr
   va_start_ptr(clist, (char *));
   
   va-start-float  ( -- )  gforth  va_start_float
   va_start_float(clist);
   
   va-start-double ( -- )  gforth  va_start_double
   va_start_double(clist);
   
 va-start-int    ( -- w )        gforth  va_start_int  va-arg-int      ( -- w )        gforth  va_arg_int
 w = va_start_int(clist);  w = va_arg_int(clist);
   
 va-start-longlong       ( -- d )        gforth  va_start_longlong  va-arg-longlong ( -- d )        gforth  va_arg_longlong
 d = va_start_longlong(clist);  d = va_arg_longlong(clist);
   
 va-start-ptr    ( -- c_addr )   gforth  va_start_ptr  va-arg-ptr      ( -- c_addr )   gforth  va_arg_ptr
 c_addr = (char *)va_start_ptr(clist, (char *));  c_addr = (char *)va_arg_ptr(clist,char*);
   
 va-start-float  ( -- r )        gforth  va_start_float  va-arg-float    ( -- r )        gforth  va_arg_float
 r = va_start_float(clist);  r = va_arg_float(clist);
   
 va-start-double ( -- r )        gforth  va_start_double  va-arg-double   ( -- r )        gforth  va_arg_double
 r = va_start_double(clist);  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);
Removed from v.1.132  
changed lines
  Added in v.1.135

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>