Ignore:
Timestamp:
Nov 10, 2005, 5:28:36 PM (17 years ago)
Author:
Sam Hocevar
Message:
  • fixed 64 bit issues here and there.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/src/lisp.cpp

    r4 r11  
    213213}
    214214
    215 lisp_1d_array *new_lisp_1d_array(ushort size, void *rest)
     215lisp_1d_array *new_lisp_1d_array(int size, void *rest)
    216216{
    217217  p_ref r11(rest);
     
    262262}
    263263
    264 lisp_fixed_point *new_lisp_fixed_point(long x)
     264lisp_fixed_point *new_lisp_fixed_point(int32_t x)
    265265{
    266266  lisp_fixed_point *p=(lisp_fixed_point *)lmalloc(sizeof(lisp_fixed_point),current_space);
     
    271271
    272272
    273 lisp_object_var *new_lisp_object_var(short number)
     273lisp_object_var *new_lisp_object_var(int16_t number)
    274274{
    275275  lisp_object_var *p=(lisp_object_var *)lmalloc(sizeof(lisp_object_var),current_space);
     
    289289}
    290290
    291 struct lisp_character *new_lisp_character(unsigned short ch)
     291struct lisp_character *new_lisp_character(uint16_t ch)
    292292{
    293293  lisp_character *c=(lisp_character *)lmalloc(sizeof(lisp_character),current_space);
     
    299299struct lisp_string *new_lisp_string(char *string)
    300300{
    301   long size=sizeof(lisp_string)+strlen(string)+1;
     301  int size=sizeof(lisp_string)+strlen(string)+1;
    302302  if (size<8) size=8;
    303303
     
    311311struct lisp_string *new_lisp_string(char *string, int length)
    312312{
    313   long size=sizeof(lisp_string)+length+1;
     313  int size=sizeof(lisp_string)+length+1;
    314314  if (size<8) size=8;
    315315  lisp_string *s=(lisp_string *)lmalloc(size,current_space);
     
    321321}
    322322
    323 struct lisp_string *new_lisp_string(long length)
    324 {
    325   long size=sizeof(lisp_string)+length;
     323struct lisp_string *new_lisp_string(int length)
     324{
     325  int size=sizeof(lisp_string)+length;
    326326  if (size<8) size=8;
    327327  lisp_string *s=(lisp_string *)lmalloc(size,current_space);
     
    343343}
    344344#else
    345 lisp_user_function *new_lisp_user_function(long arg_list, long block_list)
     345lisp_user_function *new_lisp_user_function(intptr_t arg_list, intptr_t block_list)
    346346{
    347347  int sp=current_space;
     
    560560}
    561561
    562 unsigned short lcharacter_value(void *c)
     562uint16_t lcharacter_value(void *c)
    563563{
    564564#ifdef TYPE_CHECKING
     
    10031003}
    10041004
    1005 lisp_symbol *add_c_object(void *symbol, short number)
     1005lisp_symbol *add_c_object(void *symbol, int16_t number)
    10061006{
    10071007  need_perm_space("add_c_object");
     
    14081408                                } else
    14091409                                {
    1410                                   unsigned short ch=((lisp_character *)i)->ch;
     1410                                  uint16_t ch=((lisp_character *)i)->ch;
    14111411                                  dprintf("#\\");
    14121412                                  switch (ch)
     
    21822182
    21832183#ifndef NO_LIBS
    2184       long a=cash.reg_lisp_block(lcar(lcdr(arg_list)));
    2185       long b=cash.reg_lisp_block(block_list);
     2184      intptr_t a=cash.reg_lisp_block(lcar(lcdr(arg_list)));
     2185      intptr_t b=cash.reg_lisp_block(block_list);
    21862186      lisp_user_function *ufun=new_lisp_user_function(a,b);
    21872187#else
     
    23982398                                {
    23992399                                        char *gammapath;
    2400                                         gammapath = (char *)jmalloc( strlen( get_save_filename_prefix() ) + 10, "gammapath" );
     2400                                        gammapath = (char *)jmalloc( strlen( get_save_filename_prefix() ) + 9 + 1, "gammapath" );
    24012401                                        sprintf( gammapath, "%sgamma.lsp", get_save_filename_prefix() );
    24022402                                        fp = new jFILE( gammapath, "rb" );
     
    29612961  for (;f_arg;f_arg=CDR(f_arg))
    29622962  {
    2963     l_user_stack.push(((lisp_symbol *)CAR(f_arg))->value);
     2963    lisp_symbol *s = (lisp_symbol *)CAR(f_arg);
     2964    l_user_stack.push(s->value);
    29642965  }
    29652966
Note: See TracChangeset for help on using the changeset viewer.