/[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.44 by toy, Mon Oct 13 21:56:55 2003 UTC revision 1.45 by toy, Thu Oct 16 16:18:03 2003 UTC
# Line 58  Line 58 
58    (current_dynamic_space_free_pointer = (lispobj*) ((value) \    (current_dynamic_space_free_pointer = (lispobj*) ((value) \
59           | ((unsigned long) current_dynamic_space_free_pointer & lowtag_Mask)))           | ((unsigned long) current_dynamic_space_free_pointer & lowtag_Mask)))
60  #define get_alloc_pointer() \  #define get_alloc_pointer() \
61    (current_dynamic_space_free_pointer)    ((unsigned long) current_dynamic_space_free_pointer & ~lowtag_Mask)
62  #define get_binding_stack_pointer() \  #define get_binding_stack_pointer() \
63    (current_binding_stack_pointer)    (current_binding_stack_pointer)
64  #define get_pseudo_atomic_atomic() \  #define get_pseudo_atomic_atomic() \

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

  ViewVC Help
Powered by ViewVC 1.1.5