Ignore:
Timestamp:
Nov 10, 2005, 9:41:13 PM (17 years ago)
Author:
Sam Hocevar
Message:
  • absolute shitloads of 64 bit fixes.
File:
1 edited

Legend:

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

    r4 r17  
    7575}
    7676
    77 static uchar *cstart,*cend,*collected_start,*collected_end;
     77static uint8_t *cstart,*cend,*collected_start,*collected_end;
    7878
    7979inline void *collect_cons_cell(void *x)
     
    107107  void *ret=x;
    108108
    109   if (((uchar *)x)>=cstart && ((uchar *)x)<cend)
     109  if (((uint8_t *)x)>=cstart && ((uint8_t *)x)<cend)
    110110  {
    111111    switch (item_type(x))
     
    188188    ((lisp_collected_object *)x)->type=L_COLLECTED_OBJECT;
    189189    ((lisp_collected_object *)x)->new_reference=ret;
    190   } else if ((uchar *)x<collected_start || (uchar *)x>=collected_end) 
     190  } else if ((uint8_t *)x<collected_start || (uint8_t *)x>=collected_end) 
    191191  {
    192192    if (item_type(x)==L_CONS_CELL) // still need to remap cons_cells outside of space
     
    242242{
    243243  int old_space=current_space;
    244   cstart=(uchar *)space[which_space];
    245   cend=(uchar *)free_space[which_space];
     244  cstart=(uint8_t *)space[which_space];
     245  cend=(uint8_t *)free_space[which_space];
    246246
    247247  space_size[GC_SPACE]=space_size[which_space];
     
    250250  free_space[GC_SPACE]=space[GC_SPACE]=(char *)new_space;
    251251
    252   collected_start=(uchar *)new_space;
    253   collected_end=(((uchar *)new_space)+space_size[GC_SPACE]);
     252  collected_start=(uint8_t *)new_space;
     253  collected_end=(((uint8_t *)new_space)+space_size[GC_SPACE]);
    254254
    255255  collect_symbols(lsym_root);
     
    261261  space[which_space]=(char *)new_space;
    262262  free_space[which_space]=((char *)new_space)+
    263          (((uchar *)free_space[GC_SPACE])-((uchar *)space[GC_SPACE]));
     263         (((uint8_t *)free_space[GC_SPACE])-((uint8_t *)space[GC_SPACE]));
    264264  current_space=old_space;
    265265}
Note: See TracChangeset for help on using the changeset viewer.