/[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.11.2.3 by dtc, Thu Jun 22 12:55:39 2000 UTC revision 1.11.2.4 by dtc, Sat Oct 21 12:51:04 2000 UTC
# Line 122  boolean enable_pointer_filter = TRUE; Line 122  boolean enable_pointer_filter = TRUE;
122   * The total bytes allocated. Seen by (dynamic-usage)   * The total bytes allocated. Seen by (dynamic-usage)
123   */   */
124  unsigned long bytes_allocated = 0;  unsigned long bytes_allocated = 0;
125  static unsigned long auto_gc_trigger = 0;  
126    /*
127     * GC trigger; a value of 0xffffffff represents disabled.
128     */
129    unsigned long auto_gc_trigger = 0xffffffff;
130    
131  /*  /*
132   * The src. and dest. generations. Set before a GC starts scavenging.   * The src. and dest. generations. Set before a GC starts scavenging.
# Line 6337  char *alloc(int nbytes) Line 6341  char *alloc(int nbytes)
6341        return (void *) new_obj;        return (void *) new_obj;
6342      }      }
6343    
6344      if(auto_gc_trigger          /* Only when enabled */      if(bytes_allocated > auto_gc_trigger) {
        && bytes_allocated > auto_gc_trigger) {  
6345        /* Double the trigger. */        /* Double the trigger. */
6346        auto_gc_trigger *= 2;        auto_gc_trigger *= 2;
6347        alloc_entered--;        alloc_entered--;
# Line 6405  char *alloc(int nbytes) Line 6408  char *alloc(int nbytes)
6408        return (void *) new_obj;        return (void *) new_obj;
6409      }      }
6410    
6411      if(auto_gc_trigger          /* Only when enabled */      if(bytes_allocated > auto_gc_trigger) {
        && bytes_allocated > auto_gc_trigger) {  
6412        /* Double the trigger. */        /* Double the trigger. */
6413        auto_gc_trigger *= 2;        auto_gc_trigger *= 2;
6414        alloc_entered--;        alloc_entered--;
# Line 6446  void set_auto_gc_trigger(unsigned long d Line 6448  void set_auto_gc_trigger(unsigned long d
6448    
6449  void clear_auto_gc_trigger(void)  void clear_auto_gc_trigger(void)
6450  {  {
6451    auto_gc_trigger = 0;    auto_gc_trigger = 0xffffffff;
6452  }  }
6453    
6454  /* Find the code object for the given pc. Return NULL on failure */  /* Find the code object for the given pc. Return NULL on failure */

Legend:
Removed from v.1.11.2.3  
changed lines
  Added in v.1.11.2.4

  ViewVC Help
Powered by ViewVC 1.1.5