/[cmucl]/src/code/sparc-vm.lisp
ViewVC logotype

Diff of /src/code/sparc-vm.lisp

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

revision 1.3 by wlott, Mon Nov 26 18:49:59 1990 UTC revision 1.4 by wlott, Tue Nov 27 08:45:47 1990 UTC
# Line 60  Line 60 
60             (vector (make-array length :element-type '(unsigned-byte 8))))             (vector (make-array length :element-type '(unsigned-byte 8))))
61        (declare (type system-area-pointer pc)        (declare (type system-area-pointer pc)
62                 (type (unsigned-byte 8) length)                 (type (unsigned-byte 8) length)
63                 (type (simple-array (unsigned-byte 8) (*))) vector)                 (type (simple-array (unsigned-byte 8) (*)) vector))
64        (copy-from-system-area pc (* vm:byte-bits 5)        (copy-from-system-area pc (* vm:byte-bits 5)
65                               vector (* vm:word-bits                               vector (* vm:word-bits
66                                         vm:vector-data-offset)                                         vm:vector-data-offset)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5