cvs commit: parrot/src inter_run.c

[Jens Rieks]

cvsuser     04/05/19 02:16:55

  Modified:    src      inter_run.c
  Log:
  added
  void *
  Parrot_runops_fromc_arglist_save(Parrot_Interp interpreter, PMC *sub,
          const char *sig, va_list args)
  
  Revision  Changes    Path
  1.2       +18 -1     parrot/src/inter_run.c
  
  Index: inter_run.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/inter_run.c,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- inter_run.c       5 May 2004 13:10:35 -0000       1.1
  +++ inter_run.c       19 May 2004 09:16:54 -0000      1.2
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -$Id: inter_run.c,v 1.1 2004/05/05 13:10:35 leo Exp $
  +$Id: inter_run.c,v 1.2 2004/05/19 09:16:54 jrieks Exp $
   
   =head1 NAME
   
  @@ -385,6 +385,10 @@
           const char *sig, ...)>
   
   =item C<void *
  +Parrot_runops_fromc_arglist_save(Parrot_Interp interpreter, PMC *sub,
  +        const char *sig, va_list args)>
  +
  +=item C<void *
   Parrot_run_meth_fromc_args_save(Parrot_Interp interpreter, PMC *sub,
           PMC* obj, STRING* meth, const char *sig, ...)>
   
  @@ -616,6 +620,19 @@
       restore_regs(interpreter, data);
       RESTORE_S0_P2;
       return rf;
  +}
  +
  +void *
  +Parrot_runops_fromc_arglist_save(Parrot_Interp interpreter, PMC *sub,
  +        const char *sig, va_list args)
  +{
  +    regsave *data = save_regs(interpreter, sub);
  +    void *ret;
  +
  +    runops_args(interpreter, sub, sig, args);
  +    ret = set_retval(interpreter, *sig);
  +    restore_regs(interpreter, data);
  +    return ret;
   }
   
   /*