Ignore:
Timestamp:
Jun 30, 2008, 3:08:20 PM (11 years ago)
Author:
gb
Message:

From trunk: treat stack sizes as "natural" integers.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.2/source/lisp-kernel/pmcl-kernel.c

    r9056 r9852  
    188188
    189189BytePtr
    190 allocate_lisp_stack(unsigned useable,
     190allocate_lisp_stack(natural useable,
    191191                    unsigned softsize,
    192192                    unsigned hardsize,
     
    198198                    protected_area_ptr *hardp)
    199199{
    200   void *allocate_stack(unsigned);
     200  void *allocate_stack(natural);
    201201  void free_stack(void *);
    202202  natural size = useable+softsize+hardsize;
     
    248248area *
    249249allocate_lisp_stack_area(area_code stack_type,
    250                          unsigned useable,
     250                         natural usable,
    251251                         unsigned softsize,
    252252                         unsigned hardsize,
     
    260260  protected_area_ptr soft_area=NULL, hard_area=NULL;
    261261
    262   bottom = allocate_lisp_stack(useable,
     262  bottom = allocate_lisp_stack(usable,
    263263                               softsize,
    264264                               hardsize,
     
    301301
    302302area*
    303 allocate_vstack_holding_area_lock(unsigned usable)
     303allocate_vstack_holding_area_lock(natural usable)
    304304{
    305305  return allocate_lisp_stack_area(AREA_VSTACK,
     
    313313
    314314area *
    315 allocate_tstack_holding_area_lock(unsigned usable)
     315allocate_tstack_holding_area_lock(natural usable)
    316316{
    317317  return allocate_lisp_stack_area(AREA_TSTACK,
Note: See TracChangeset for help on using the changeset viewer.