Skip to content
Snippets Groups Projects
Forked from cmucl / cmucl
Source project has a limited visibility.
  • gerd's avatar
    e31f8138
    * src/lisp/alloc.c (alloc) [GENCGC]: Define as alloc_pseudo_atomic. · e31f8138
    gerd authored
    	* src/lisp/gencgc.c (set_pseudo_atomic_atomic)
    	(clr_pseudo_atomic_atomic) [i386]: Reverse the values assigned
    	to PSEUDO_ATOMIC_ATOMIC, remove semicolons.
    	(alloc_pseudo_atomic): New function wrapping alloc in a
    	pseudo-atomic section.
    	(alloc): Remove code for the non-PA case, rewrite the rest
    	to use a loop instead of goto.
    e31f8138
    History
    * src/lisp/alloc.c (alloc) [GENCGC]: Define as alloc_pseudo_atomic.
    gerd authored
    	* src/lisp/gencgc.c (set_pseudo_atomic_atomic)
    	(clr_pseudo_atomic_atomic) [i386]: Reverse the values assigned
    	to PSEUDO_ATOMIC_ATOMIC, remove semicolons.
    	(alloc_pseudo_atomic): New function wrapping alloc in a
    	pseudo-atomic section.
    	(alloc): Remove code for the non-PA case, rewrite the rest
    	to use a loop instead of goto.