cvs commit: parrot nci.c

[dan]

cvsuser     02/11/20 18:00:23

  Modified:    .        nci.c
  Log:
  Fixed a return value whoops
  
  Revision  Changes    Path
  1.3       +2 -1      parrot/nci.c
  
  Index: nci.c
  ===================================================================
  RCS file: /cvs/public/parrot/nci.c,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -w -r1.2 -r1.3
  --- nci.c     21 Nov 2002 01:47:44 -0000      1.2
  +++ nci.c     21 Nov 2002 02:00:23 -0000      1.3
  @@ -1,7 +1,7 @@
   /* nci.c
    *  Copyright: 2001, 2002 Yet Another Society
    *  CVS Info
  - *     $Id: nci.c,v 1.2 2002/11/21 01:47:44 dan Exp $
  + *     $Id: nci.c,v 1.3 2002/11/21 02:00:23 dan Exp $
    *  Overview:
    *     Native Call Interface routines. The code needed to build a
    *     parrot to C call frame is in here
  @@ -51,6 +51,7 @@
     double return_data;
     pointer = self->cache.struct_val;
     return_data = (double)(*pointer)();
  +  interpreter->ctx.num_reg.registers[5] = return_data;
     interpreter->ctx.int_reg.registers[0] = 0;
     interpreter->ctx.int_reg.registers[1] = 0;
     interpreter->ctx.int_reg.registers[2] = 0;