/[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.15 by wlott, Sun Nov 18 07:02:18 1990 UTC revision 1.16 by wlott, Sun Nov 18 09:00:24 1990 UTC
# Line 100  Line 100 
100      (cond ((and (zerop rs) (or (string= name "ADDI") (string= name "ADDIU")))      (cond ((and (zerop rs) (or (string= name "ADDI") (string= name "ADDIU")))
101             (format stream "~16,8TLOADI~8,8T~A, #x~X~%"             (format stream "~16,8TLOADI~8,8T~A, #x~X~%"
102                     (register-name rt) immed))                     (register-name rt) immed))
103            ((and (= rs null-offset) (string= name "ADDI")            ((and (= rs null-offset) (string= name "ADDI"))
                 (eq register-name-style :lisp))  
104             ;; Major hack ...             ;; Major hack ...
105             (format stream "~16,8T~A~8,8T~A, ~A, #x~X~48,8T; ~S~%"             (format stream "~16,8T~A~8,8T~A, ~A, #x~X~48,8T; ~S~%"
106                     name (register-name rt) (register-name rs) immed                     name (register-name rt) (register-name rs) immed

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

  ViewVC Help
Powered by ViewVC 1.1.5