/[cmucl]/src/code/gc.lisp
ViewVC logotype

Diff of /src/code/gc.lisp

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

revision 1.26 by pw, Tue Apr 10 13:42:44 2001 UTC revision 1.27 by moore, Tue Aug 27 22:18:24 2002 UTC
# Line 487  Line 487 
487      (if (< *gc-trigger* (dynamic-usage))      (if (< *gc-trigger* (dynamic-usage))
488          (sub-gc)          (sub-gc)
489          (set-auto-gc-trigger *gc-trigger*))))          (set-auto-gc-trigger *gc-trigger*))))
490    
491    ;;; setters and accessors for gencgc parameters
492    
493    #+gencgc(eval-when (load eval)
494    (alien:def-alien-type nil
495      (alien:struct generation-stats
496        (bytes-allocated c-call:int)
497        (gc-trigger c-call:int)
498        (bytes-consed-between-gc c-call:int)
499        (num-gc c-call:int)
500        (trigger-age c-call:int)
501        (cum-sum-bytes-allocated c-call:int)
502        (min-av-mem-age c-call:double)))
503    
504    (defun gencgc-stats (generation)
505      (alien:with-alien ((stats (alien:struct generation-stats)))
506        (alien:alien-funcall (alien:extern-alien "get_generation_stats"
507                                                 (function c-call:void
508                                                           c-call:int
509                                                           (* (alien:struct
510                                                               generation-stats))))
511                             generation
512                             (alien:addr stats))
513        (values (alien:slot stats 'bytes-allocated)
514                (alien:slot stats 'gc-trigger)
515                (alien:slot stats 'bytes-consed-between-gc)
516                (alien:slot stats 'num-gc)
517                (alien:slot stats 'trigger-age)
518                (alien:slot stats 'cum-sum-bytes-allocated)
519                (alien:slot stats 'min-av-mem-age))))
520    
521    (alien:def-alien-routine set-gc-trigger c-call:void
522                             (gen c-call:int) (trigger c-call:int))
523    (alien:def-alien-routine set-trigger-age c-call:void
524                             (gen c-call:int) (trigger-age c-call:int))
525    (alien:def-alien-routine set-min-mem-age c-call:void
526                             (gen c-call:int) (min-mem-age c-call:double))
527    )

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5