/[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.34 by cwang, Tue Oct 19 20:12:45 2004 UTC revision 1.34.12.2 by rtoy, Mon Jun 26 15:09:20 2006 UTC
# Line 91  Line 91 
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)                   (simple-array-complex-single-float-type . 3)
94                   (simple-array-complex-double-float-type . 4)))                   (simple-array-complex-double-float-type . 4)
95                     #+double-double
96                     (simple-array-double-double-float-type . 4)
97                     #+double-double
98                     (simple-array-complex-double-double-float-type . 5)
99                     ))
100    (let ((name (car stuff))    (let ((name (car stuff))
101          (size (cdr stuff)))          (size (cdr stuff)))
102      (setf (svref *meta-room-info* (symbol-value name))      (setf (svref *meta-room-info* (symbol-value name))
# Line 477  Line 482 
482               ((#.bignum-type               ((#.bignum-type
483                 #.single-float-type                 #.single-float-type
484                 #.double-float-type                 #.double-float-type
485                   #+double-double
486                   #.double-double-float-type
487                   #.complex-single-float-type
488                   #.complex-double-float-type
489                   #+double-double
490                   #.complex-double-double-float-type
491                 #.simple-string-type                 #.simple-string-type
492                 #.simple-bit-vector-type                 #.simple-bit-vector-type
493                 #.simple-array-unsigned-byte-2-type                 #.simple-array-unsigned-byte-2-type
# Line 490  Line 501 
501                 #.simple-array-signed-byte-32-type                 #.simple-array-signed-byte-32-type
502                 #.simple-array-single-float-type                 #.simple-array-single-float-type
503                 #.simple-array-double-float-type                 #.simple-array-double-float-type
504                   #+double-double
505                   #.simple-array-double-double-float-type
506                 #.simple-array-complex-single-float-type                 #.simple-array-complex-single-float-type
507                 #.simple-array-complex-double-float-type)                 #.simple-array-complex-double-float-type
508                   #+double-double
509                   #.simple-array-complex-double-double-float-type)
510                (incf non-descriptor-headers)                (incf non-descriptor-headers)
511                (incf non-descriptor-bytes (- size word-bytes)))                (incf non-descriptor-bytes (- size word-bytes)))
512               ((#.list-pointer-type               ((#.list-pointer-type
# Line 510  Line 525 
525                 #.symbol-header-type                 #.symbol-header-type
526                 #.sap-type                 #.sap-type
527                 #.weak-pointer-type                 #.weak-pointer-type
528                 #.instance-header-type)                 #.instance-header-type
529                   #.fdefn-type
530                   #+gencgc
531                   #.scavenger-hook-type)
532                (incf descriptor-words (truncate size word-bytes)))                (incf descriptor-words (truncate size word-bytes)))
533               (t               (t
534                (error "Bogus type: ~D" type))))                (error "Bogus type: ~D" type))))

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.34.12.2

  ViewVC Help
Powered by ViewVC 1.1.5