Changeset 6077


Ignore:
Timestamp:
Mar 21, 2007, 10:28:29 AM (13 years ago)
Author:
gb
Message:

Tweaks to macptr printing.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/level-1/l1-io.lisp

    r6045 r6077  
    15721572          (write-an-integer (%ptr-to-int macptr) stream 16. t))))))
    15731573
    1574 (defun %write-macptr-allocation-info (macptr stream)
     1574(defun %macptr-allocation-string (macptr)
    15751575  (if (or (on-any-csp-stack macptr)
    15761576          (on-any-tsp-stack macptr))
    1577     (format stream " [stack-allocated]")
     1577    "[stack-allocated]"
    15781578    (if (eql (uvsize macptr) target::xmacptr.element-count)
    1579       (format stream " [gcable]"))))
     1579      "[gcable]")))
     1580
     1581(defun %write-macptr-allocation-info (macptr stream)
     1582  (let* ((s (%macptr-allocation-string macptr)))
     1583    (if s (format stream " ~a" s))))
    15801584
    15811585(defun %write-macptr-type-info (macptr stream)
Note: See TracChangeset for help on using the changeset viewer.