pike.git / src / pike_types.c

version» Context lines:

pike.git/src/pike_types.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: pike_types.c,v 1.91 1999/12/12 18:31:33 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.92 1999/12/13 12:08:12 mast Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"   #include "stralloc.h"   #include "stuff.h"   #include "array.h"   #include "program.h"   #include "constants.h"   #include "object.h"   #include "multiset.h"
pike.git/src/pike_types.c:231:    reverse((char *)(type_stackp-a),a,1);   }      void push_type_int(INT32 i)   {    int e;    for(e=0;e<(int)sizeof(i);e++)    push_type( (i>>(e*8)) & 0xff );   }    + void push_type_int_backwards(INT32 i) + { +  int e; +  for(e=(int)sizeof(i);e-->0;) +  push_type( (i>>(e*8)) & 0xff ); + } +    INT32 extract_type_int(char *p)   {    int e;    INT32 ret=0;    for(e=0;e<(int)sizeof(INT32);e++)    ret=(ret<<8) | EXTRACT_UCHAR(p+e);    return ret;   }      void push_unfinished_type(char *s)