/[cmucl]/src/code/pmax-disassem.lisp
ViewVC logotype

Diff of /src/code/pmax-disassem.lisp

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

revision 1.11 by wlott, Sat Feb 24 17:07:35 1990 UTC revision 1.12 by wlott, Sat Jun 23 19:01:03 1990 UTC
# Line 261  Line 261 
261    
262  (defvar *mips-instructions*  (defvar *mips-instructions*
263    (make-array (ash 1 mips-instruction-bits)))    (make-array (ash 1 mips-instruction-bits)))
264  (proclaim '(type *mips-instructions* 'simple-vector))  (proclaim '(type simple-vector *mips-instructions*))
265    
266  (defmacro def-mips-instr (name op-code type)  (defmacro def-mips-instr (name op-code type)
267    `(let ((name ,name)    `(let ((name ,name)
# Line 277  Line 277 
277    
278  (defvar *mips-special-instructions*  (defvar *mips-special-instructions*
279    (make-array (ash 1 mips-special-instruction-bits)))    (make-array (ash 1 mips-special-instruction-bits)))
280  (proclaim '(type *mips-special-instructions* 'simple-vector))  (proclaim '(type simple-vector *mips-special-instructions*))
281    
282  (defmacro def-mips-special-instr (name op-code type)  (defmacro def-mips-special-instr (name op-code type)
283    `(let ((name ,name)    `(let ((name ,name)
# Line 293  Line 293 
293    
294  (defvar *mips-bcond-instructions*  (defvar *mips-bcond-instructions*
295    (make-array (ash 1 mips-bcond-instruction-bits)))    (make-array (ash 1 mips-bcond-instruction-bits)))
296  (proclaim '(type *mips-bcond-instructions* 'simple-vector))  (proclaim '(type simple-vector *mips-bcond-instructions*))
297    
298  (defmacro def-mips-bcond-instr (name op-code type)  (defmacro def-mips-bcond-instr (name op-code type)
299    `(let ((name ,name)    `(let ((name ,name)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

  ViewVC Help
Powered by ViewVC 1.1.5