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

Diff of /src/code/room.lisp

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

revision 1.25 by dtc, Tue Apr 1 19:23:53 1997 UTC revision 1.25.2.3 by dtc, Thu Jul 6 06:18:49 2000 UTC
# Line 84  Line 84 
84                   (simple-array-unsigned-byte-8-type . 0)                   (simple-array-unsigned-byte-8-type . 0)
85                   (simple-array-unsigned-byte-16-type . 1)                   (simple-array-unsigned-byte-16-type . 1)
86                   (simple-array-unsigned-byte-32-type . 2)                   (simple-array-unsigned-byte-32-type . 2)
87                   #+signed-array (simple-array-signed-byte-8-type . 0)                   (simple-array-signed-byte-8-type . 0)
88                   #+signed-array (simple-array-signed-byte-16-type . 1)                   (simple-array-signed-byte-16-type . 1)
89                   #+signed-array (simple-array-signed-byte-30-type . 2)                   (simple-array-signed-byte-30-type . 2)
90                   #+signed-array (simple-array-signed-byte-32-type . 2)                   (simple-array-signed-byte-32-type . 2)
91                   (simple-array-single-float-type . 2)                   (simple-array-single-float-type . 2)
92                   (simple-array-double-float-type . 3)))                   (simple-array-double-float-type . 3)
93                     (simple-array-complex-single-float-type . 3)
94                     (simple-array-complex-double-float-type . 4)))
95    (let ((name (car stuff))    (let ((name (car stuff))
96          (size (cdr stuff)))          (size (cdr stuff)))
97      (setf (svref *meta-room-info* (symbol-value name))      (setf (svref *meta-room-info* (symbol-value name))
# Line 474  Line 476 
476                 #.simple-array-unsigned-byte-8-type                 #.simple-array-unsigned-byte-8-type
477                 #.simple-array-unsigned-byte-16-type                 #.simple-array-unsigned-byte-16-type
478                 #.simple-array-unsigned-byte-32-type                 #.simple-array-unsigned-byte-32-type
479                 #+signed-array #.simple-array-signed-byte-8-type                 #.simple-array-signed-byte-8-type
480                 #+signed-array #.simple-array-signed-byte-16-type                 #.simple-array-signed-byte-16-type
481                 #+signed-array #.simple-array-signed-byte-30-type                 #.simple-array-signed-byte-30-type
482                 #+signed-array #.simple-array-signed-byte-32-type                 #.simple-array-signed-byte-32-type
483                 #.simple-array-single-float-type                 #.simple-array-single-float-type
484                 #.simple-array-double-float-type)                 #.simple-array-double-float-type
485                   #.simple-array-complex-single-float-type
486                   #.simple-array-complex-double-float-type)
487                (incf non-descriptor-headers)                (incf non-descriptor-headers)
488                (incf non-descriptor-bytes (- size word-bytes)))                (incf non-descriptor-bytes (- size word-bytes)))
489               ((#.list-pointer-type               ((#.list-pointer-type
# Line 635  Line 639 
639                     (return-from print-allocated-objects (values)))                     (return-from print-allocated-objects (values)))
640    
641                   (unless count                   (unless count
642                     (let ((this-page (* (the (unsigned-byte 32)                     (let ((this-page (* (the (values (unsigned-byte 32) t)
643                                              (truncate addr pagesize))                                              (truncate addr pagesize))
644                                         pagesize)))                                         pagesize)))
645                       (declare (type (unsigned-byte 32) this-page))                       (declare (type (unsigned-byte 32) this-page))

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.25.2.3

  ViewVC Help
Powered by ViewVC 1.1.5