/[cmucl]/src/lisp/gencgc.c
ViewVC logotype

Diff of /src/lisp/gencgc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.43 by toy, Mon Oct 13 20:42:56 2003 UTC revision 1.44 by toy, Mon Oct 13 21:56:55 2003 UTC
# Line 56  Line 56 
56   */   */
57  #define set_alloc_pointer(value) \  #define set_alloc_pointer(value) \
58    (current_dynamic_space_free_pointer = (lispobj*) ((value) \    (current_dynamic_space_free_pointer = (lispobj*) ((value) \
59           | ((unsigned long) current_dynamic_space_free_pointer & lowtagMask)))           | ((unsigned long) current_dynamic_space_free_pointer & lowtag_Mask)))
60  #define get_alloc_pointer() \  #define get_alloc_pointer() \
61    (current_dynamic_space_free_pointer)    (current_dynamic_space_free_pointer)
62  #define get_binding_stack_pointer() \  #define get_binding_stack_pointer() \
# Line 6866  void do_pending_interrupt (void); Line 6866  void do_pending_interrupt (void);
6866  char *  char *
6867  alloc (int nbytes)  alloc (int nbytes)
6868  {  {
6869    gc_assert (((unsigned) SymbolValue (CURRENT_REGION_FREE_POINTER) & lowtagMask) == 0);    gc_assert (((unsigned) SymbolValue (CURRENT_REGION_FREE_POINTER) & lowtag_Mask) == 0);
6870    gc_assert ((nbytes & lowtagMask) == 0);    gc_assert ((nbytes & lowtag_Mask) == 0);
6871    gc_assert (get_pseudo_atomic_atomic ());    gc_assert (get_pseudo_atomic_atomic ());
6872    
6873    bytes_allocated_sum += nbytes;    bytes_allocated_sum += nbytes;

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

  ViewVC Help
Powered by ViewVC 1.1.5