[Git][cmucl/cmucl][master] Change disassembly to use .byte and .word instead of byte and word

[Raymond Toy]

Raymond Toy pushed to branch master at cmucl / cmucl


Commits:
704b1ae0 by Raymond Toy at 2015-10-11T09:07:54Z
Change disassembly to use .byte and .word instead of byte and word
when printing random bytes and words.

- - - - -


1 changed file:

- src/compiler/disassem.lisp


Changes:

=====================================
src/compiler/disassem.lisp
=====================================
--- a/src/compiler/disassem.lisp
+++ b/src/compiler/disassem.lisp
@@ -2470,7 +2470,7 @@
   (declare (type offset num)
 	   (type stream stream)
 	   (type disassem-state dstate))
-  (format stream "~a~vt" 'BYTE (dstate-argument-column dstate))
+  (format stream "~a~vt" '.BYTE (dstate-argument-column dstate))
   (let ((sap (dstate-segment-sap dstate))
 	(start-offs (dstate-cur-offs dstate)))
     (dotimes (offs num)
@@ -2483,7 +2483,7 @@
   (declare (type offset num)
 	   (type stream stream)
 	   (type disassem-state dstate))
-  (format stream "~a~vt" 'WORD (dstate-argument-column dstate))
+  (format stream "~a~vt" '.WORD (dstate-argument-column dstate))
   (let ((sap (dstate-segment-sap dstate))
 	(start-offs (dstate-cur-offs dstate))
 	(byte-order (dstate-byte-order dstate)))



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/704b1ae0c0a023bf315a9652410a59d2bd8f375b
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20151011/a90e9e3a/attachment.html>