;;; -*-  Mode:COMMON-LISP; Package:SYSTEM-INTERNALS; Base:8; -*-

;;;                           RESTRICTED RIGHTS LEGEND

;;;Use, duplication, or disclosure by the Government is subject to
;;;restrictions as set forth in subdivision (c)(1)(ii) of the Rights in
;;;Technical Data and Computer Software clause at 52.227-7013.
;;;
;;;                     TEXAS INSTRUMENTS INCORPORATED.
;;;                              P.O. BOX 2909
;;;                           AUSTIN, TEXAS 78769
;;;                                 MS 2151
;;;
;;; Copyright (C) 1987- 1989 Texas Instruments Incorporated. All rights reserved.

;;; This file contains obsolete MEMORY-MANAGEMENT functions.

;;; Change History:
;;;
;;;  Date    Patcher Patch#   Description
;;; ------------------------------------------------------------------------------
;;; 02-19-87   ab      --     Original
;;;
;;; 06-03-87   ab   *P GC 7   DEFF the swap-recommendation functions to their
;;;                           new counterparts.

;;;
;;; Functions

(make-obsolete get-free-address-space 'usable-address-space)
(make-obsolete get-free-space-size 'usable-address-space)


(DEFF set-all-swap-recommendations 'set-all-swapin-quanta)
(DEFF set-swap-recommentations-of-area 'set-swapin-quantum-of-area)

(make-obsolete set-all-swap-recommendations set-all-swapin-quanta)
(make-obsolete set-swap-recommendations-of-area set-swapin-quantum-of-area)


(DEFUN set-scavenger-ws (&rest ignore)
  nil)

(make-obsolete set-scavenger-ws nil)


(DEFUN clean-up-static-area (&rest ignore)
  nil)

(make-obsolete clean-up-static-area nil)


(DEFUN gc-flip-maybe (&rest ignore)
  nil)

(make-obsolete gc-flip-maybe nil)


;;;
;;; Variables

(DEFVAR gc-page-cons-alarm-mark 0)
(compiler:make-variable-obsolete gc-page-cons-alarm-mark nil) 
 
(DEFVAR gc-flip-ratio nil)
(compiler:make-variable-obsolete gc-flip-ration nil)

(DEFVAR gc-flip-minimum-ratio nil)
(compiler:make-variable-obsolete gc-flip-minimum-ration nil)

(DEFVAR gc-reclaim-immediately nil)
(compiler:make-variable-obsolete gc-reclaim-immediately nil)


;;(DEFUN test-obsolete-stuff ()
;;  (SETQ gc-page-cons-alarm-mark nil
;;  	gc-flip-ratio nil
;;	gc-flip-minimum-ratio nil
;;	gc-reclaim-immediately nil)
;;  (get-free-address-space)
;;  (get-free-space-size)
;;  (gc-flip-maybe)
;;  (set-all-swap-recommendations)
;;  (set-swap-recommendations-of-area)
;;  (set-scavenger-ws)
;;  (clean-up-static-area))