movitz-cvs February 2008

movitz-cvs@common-lisp.net

1 participants
66 discussions

[movitz-cvs] CVS movitz
by ffjeld 28 Feb '08

28 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv24475 Modified Files: asm-x86.lisp Log Message: Disassembler for IN instruction. --- /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/28 20:30:09 1.35 +++ /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/28 20:33:06 1.36 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm-x86.lisp,v 1.35 2008/02/28 20:30:09 ffjeld Exp $ +;;;; $Id: asm-x86.lisp,v 1.36 2008/02/28 20:33:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1674,28 +1674,16 @@ ;;;;;;;;;;; IN (define-operator/8 :inb (port dst) - (when (eq :al dst) - (typecase port - ((eql :dx) - (opcode #xec)) - ((uint 8) - (imm port #xe4 (uint 8) (dst :al)))))) + (opcode #xec (port :dx) (dst :al)) + (imm port #xe4 (uint 8) (dst :al))) (define-operator/16 :inw (port dst) - (when (eq :ax dst) - (typecase port - ((eql :dx) - (opcode #xed)) - ((uint 8) - (imm port #xe5 (uint 8) (dst :ax)))))) + (opcode #xed (port :dx) (dst :ax)) + (imm port #xe5 (uint 8) (dst :ax))) (define-operator/32 :inl (port dst) - (when (eq :eax dst) - (typecase port - ((eql :dx) - (opcode #xed)) - ((uint 8) - (imm port #xe5 (uint 8) (dst :eax)))))) + (opcode #xed (port :dx) (dst :eax)) + (imm port #xe5 (uint 8) (dst :eax))) ;;;;;;;;;;; INC

1 0

[movitz-cvs] CVS movitz
by ffjeld 28 Feb '08

28 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv24114 Modified Files: asm-x86.lisp Log Message: Disassembler for OUT instruction. --- /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/28 20:09:08 1.34 +++ /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/28 20:30:09 1.35 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm-x86.lisp,v 1.34 2008/02/28 20:09:08 ffjeld Exp $ +;;;; $Id: asm-x86.lisp,v 1.35 2008/02/28 20:30:09 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -894,7 +894,7 @@ (segment (code-call (decode-integer code '(uint 16))))) (values (list operator segment - offset) + (list offset)) code))) (defun decode-pc-rel (code operator opcode operand-size address-size rex type) @@ -1216,11 +1216,13 @@ -(defmacro opcode (opcode &optional fixed-operand &rest extras) +(defmacro opcode (opcode &optional fixed-operand fixed-operand2 &rest extras) `(progn (assembler (when (and ,@(when fixed-operand - `((eql ,@fixed-operand)))) + `((eql ,@fixed-operand))) + ,@(when fixed-operand2 + `((eql ,@fixed-operand2)))) (return-values-when (encoded-values :opcode ,opcode ,@extras @@ -1228,7 +1230,8 @@ (disassembler (define-disassembler (operator ,opcode) decode-no-operands - ,(second fixed-operand))))) + ,(second fixed-operand) + ,(second fixed-operand2))))) (defmacro opcode* (opcode &rest extras) `(return-values-when @@ -1726,7 +1729,8 @@ ;;;;;;;;;;; IRET (define-operator* (:16 :iret :32 :iretd :64 :iretq) () - (opcode #xcf () :rex default-rex)) + (opcode #xcf () () + :rex default-rex)) ;;;;;;;;;;; Jcc @@ -1964,28 +1968,16 @@ ;;;;;;;;;;; OUT (define-operator/8 :outb (src port) - (when (eq :al src) - (typecase port - ((eql :dx) - (opcode #xee)) - ((uint 8) - (imm port #xe6 (uint 8) (src :al)))))) + (opcode #xee (src :al) (port :dx)) + (imm port #xe6 (uint 8) (src :al))) (define-operator/16 :outw (src port) - (when (eq :ax src) - (typecase port - ((eql :dx) - (opcode #xef)) - ((uint 8) - (imm port #xe7 (uint 8) (src :ax)))))) + (opcode #xef (src :ax) (port :dx)) + (imm port #xe7 (uint 8) (src :ax))) (define-operator/32 :outl (src port) - (when (eq :eax src) - (typecase port - ((eql :dx) - (opcode #xef)) - ((uint 8) - (imm port #xe7 (uint 8) (src :eax)))))) + (opcode #xef (src :eax) (port :dx)) + (imm port #xe7 (uint 8) (src :eax))) ;;;;;;;;;;; POP

1 0

[movitz-cvs] CVS movitz
by ffjeld 28 Feb '08

28 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv20701 Modified Files: asm-x86.lisp Log Message: Disassemblers for reg-cr and far-pointer. --- /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/27 21:22:47 1.33 +++ /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/28 20:09:08 1.34 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm-x86.lisp,v 1.33 2008/02/27 21:22:47 ffjeld Exp $ +;;;; $Id: asm-x86.lisp,v 1.34 2008/02/28 20:09:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -218,7 +218,8 @@ ((atom body) nil) ((member (car body) '(reg-modrm modrm opcode imm-modrm imm opcode-reg - opcode-reg-imm pc-rel moffset sreg-modrm)) + opcode-reg-imm pc-rel moffset sreg-modrm reg-cr + far-pointer)) (list body)) (t (mapcan #'find-forms body))))) (let ((defun-name (intern (format nil "~A-~A" 'instruction-encoder operator)))) @@ -312,6 +313,19 @@ (set-it *opcode-disassemblers-64* opcode))))) +(defmacro pop-code (code-place &optional context) + `(progn + (unless ,code-place + (error "End of byte-stream in the middle of an instruction.")) + (let ((x (pop ,code-place))) + (check-type x (unsigned-byte 8) ,(format nil "an octet (context: ~A)" context)) + x))) + +(defmacro code-call (form &optional (code-place (case (car form) ((funcall apply) (third form)) (t (second form))))) + "Execute form, then 'magically' update the code binding with the secondary return value from form." + `(let (tmp) + (declare (ignorable tmp)) + (setf (values tmp ,code-place) ,form))) (defmacro define-disassembler ((operator opcode &optional cpu-mode digit backup-p operand-size) lambda-list &body body) (cond @@ -773,20 +787,6 @@ collect (or (getf operands key) (error "No operand ~S in ~S." key operands)))) -(defmacro pop-code (code-place &optional context) - `(progn - (unless ,code-place - (error "End of byte-stream in the middle of an instruction.")) - (let ((x (pop ,code-place))) - (check-type x (unsigned-byte 8) ,(format nil "an octet (context: ~A)" context)) - x))) - -(defmacro code-call (form &optional (code-place (case (car form) ((funcall apply) (third form)) (t (second form))))) - "Execute form, then 'magically' update the code binding with the secondary return value from form." - `(let (tmp) - (declare (ignorable tmp)) - (setf (values tmp ,code-place) ,form))) - (defun decode-integer (code type) "Decode an integer of specified type." (let* ((bit-size (cadr type)) @@ -839,6 +839,17 @@ (remove nil fixed-operands)) code)) +(defun decode-reg-cr (code operator opcode operand-size address-size rex operand-ordering) + (declare (ignore opcode operand-size address-size)) + (let ((modrm (pop-code code))) + (values (list* operator + (order-operands operand-ordering + :reg (nth (ldb (byte 3 0) modrm) + (register-set-by-mode (if rex :64-bit :32-bit))) + :cr (nth (ldb (byte 3 3) modrm) + '(:cr0 :cr1 :cr2 :cr3 :cr4 :cr5 :cr6 :cr7)))) + code))) + (defun decode-reg-modrm (code operator opcode operand-size address-size rex operand-ordering &optional (reg-mode operand-size)) (declare (ignore opcode rex)) (values (list* operator @@ -877,6 +888,15 @@ :imm (code-call (decode-integer code imm-type)))) code)) +(defun decode-far-pointer (code operator opcode operand-size address-size rex type) + (declare (ignore opcode operand-size address-size rex)) + (let ((offset (code-call (decode-integer code type))) + (segment (code-call (decode-integer code '(uint 16))))) + (values (list operator + segment + offset) + code))) + (defun decode-pc-rel (code operator opcode operand-size address-size rex type) (declare (ignore opcode operand-size address-size rex)) (values (list operator @@ -1140,7 +1160,15 @@ extras))))) (defmacro reg-cr (op-reg op-cr opcode &rest extras) - `(return-when (encode-reg-cr operator legacy-prefixes ,op-reg ,op-cr ,opcode operator-mode default-rex ,@extras))) + `(progn + (assembler + (return-when (encode-reg-cr operator legacy-prefixes ,op-reg ,op-cr ,opcode operator-mode default-rex ,@extras))) + (disassembler + (define-disassembler (operator ,opcode nil nil nil :32-bit) + decode-reg-cr + (operand-ordering operand-formals + :reg ',op-reg + :cr ',op-cr))))) (defmacro sreg-modrm (op-sreg op-modrm opcode &rest extras) `(progn @@ -1283,16 +1311,22 @@ ',type))))) (defmacro far-pointer (opcode segment offset offset-type &rest extra) - `(when (and (immediate-p ,segment) - (indirect-operand-p ,offset)); FIXME: should be immediate-p, change in bootblock.lisp. - (let ((segment (resolve-operand ,segment)) - (offset (resolve-operand (car ,offset)))) - (when (and (typep segment '(uint 16)) - (typep offset ',offset-type)) - (return-when (encode (encoded-values :opcode ,opcode - :immediate (append (encode-integer offset ',offset-type) - (encode-integer segment '(uint 16))) - ,@extra))))))) + `(progn + (assembler + (when (and (immediate-p ,segment) + (indirect-operand-p ,offset)) ; FIXME: should be immediate-p, change in bootblock.lisp. + (let ((segment (resolve-operand ,segment)) + (offset (resolve-operand (car ,offset)))) + (when (and (typep segment '(uint 16)) + (typep offset ',offset-type)) + (return-when (encode (encoded-values :opcode ,opcode + :immediate (append (encode-integer offset ',offset-type) + (encode-integer segment '(uint 16))) + ,@extra))))))) + (disassembler + (define-disassembler (operator ,opcode operator-mode) + decode-far-pointer + ',offset-type)))) ;;;;;;;;;;; Pseudo-instructions @@ -1843,10 +1877,10 @@ (moffset #xa0 src (uint 16) (dst :ax)) (opcode-reg-imm #xb8 dst src (xint 16)) (imm-modrm src dst #xc7 0 (xint 16)) - (reg-modrm dst src #x8b) - (reg-modrm src dst #x89) (sreg-modrm src dst #x8c) - (sreg-modrm dst src #x8e)) + (sreg-modrm dst src #x8e) + (reg-modrm dst src #x8b) + (reg-modrm src dst #x89)) (define-operator/32 :movl (src dst) (moffset #xa3 dst (uint 32) (src :eax)) @@ -1858,17 +1892,9 @@ ;;;;;;;;;;; MOVCR -(define-operator* (:32 :movcrl :64 :movcrr :dispatch :movcr) (src dst) - (when (eq src :cr8) - (reg-cr dst :cr0 #xf00f20 - :operand-size nil)) - (when (eq dst :cr8) - (reg-cr src :cr0 #xf00f22 - :operand-size nil)) - (reg-cr src dst #x0f22 - :operand-size nil) - (reg-cr dst src #x0f20 - :operand-size nil)) +(define-operator* (:32 :movcrl :dispatch :movcr) (src dst) + (reg-cr src dst #x0f22) + (reg-cr dst src #x0f20)) ;;;;;;;;;;; MOVS

1 0

[movitz-cvs] CVS movitz
by ffjeld 27 Feb '08

27 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv661 Modified Files: asm-x86.lisp Log Message: Add disassembler for opcode-reg-imm. --- /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/27 20:55:50 1.32 +++ /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/27 21:22:47 1.33 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm-x86.lisp,v 1.32 2008/02/27 20:55:50 ffjeld Exp $ +;;;; $Id: asm-x86.lisp,v 1.33 2008/02/27 21:22:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -217,7 +217,8 @@ (cond ((atom body) nil) - ((member (car body) '(reg-modrm modrm opcode imm-modrm imm opcode-reg pc-rel moffset sreg-modrm)) + ((member (car body) '(reg-modrm modrm opcode imm-modrm imm opcode-reg + opcode-reg-imm pc-rel moffset sreg-modrm)) (list body)) (t (mapcan #'find-forms body))))) (let ((defun-name (intern (format nil "~A-~A" 'instruction-encoder operator)))) @@ -899,6 +900,15 @@ :extra extra-operand)) code)) +(defun decode-opcode-reg-imm (code operator opcode operand-size address-size rex operand-ordering imm-type) + (declare (ignore address-size rex)) + (values (list* operator + (order-operands operand-ordering + :reg (nth (ldb (byte 3 0) opcode) + (register-set-by-mode operand-size)) + :imm (code-call (decode-integer code imm-type)))) + code)) + (defun decode-reg-modrm-16 (code operand-size) (let* ((modrm (pop-code code mod/rm)) (mod (ldb (byte 2 6) modrm)) @@ -1259,8 +1269,18 @@ (t default-rex)))))))))) (defmacro opcode-reg-imm (opcode op-reg op-imm type) - `(return-when - (encode-opcode-reg-imm operator legacy-prefixes ,opcode ,op-reg ,op-imm ',type operator-mode default-rex))) + `(progn + (assembler + (return-when + (encode-opcode-reg-imm operator legacy-prefixes ,opcode ,op-reg ,op-imm ',type operator-mode default-rex))) + (disassembler + (loop for reg from #b000 to #b111 + do (define-disassembler (operator (logior ,opcode reg) operator-mode) + decode-opcode-reg-imm + (operand-ordering operand-formals + :reg ',op-reg + :imm ',op-imm) + ',type))))) (defmacro far-pointer (opcode segment offset offset-type &rest extra) `(when (and (immediate-p ,segment)

1 0

[movitz-cvs] CVS movitz
by ffjeld 27 Feb '08

27 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv28144 Modified Files: asm-x86.lisp Log Message: Add disassembler for sreg-modrm. --- /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/25 23:33:43 1.31 +++ /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/27 20:55:50 1.32 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm-x86.lisp,v 1.31 2008/02/25 23:33:43 ffjeld Exp $ +;;;; $Id: asm-x86.lisp,v 1.32 2008/02/27 20:55:50 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -217,7 +217,7 @@ (cond ((atom body) nil) - ((member (car body) '(reg-modrm modrm opcode imm-modrm imm opcode-reg pc-rel moffset)) + ((member (car body) '(reg-modrm modrm opcode imm-modrm imm opcode-reg pc-rel moffset sreg-modrm)) (list body)) (t (mapcan #'find-forms body))))) (let ((defun-name (intern (format nil "~A-~A" 'instruction-encoder operator)))) @@ -312,7 +312,7 @@ -(defmacro define-disassembler ((operator opcode &optional cpu-mode digit backup-p) lambda-list &body body) +(defmacro define-disassembler ((operator opcode &optional cpu-mode digit backup-p operand-size) lambda-list &body body) (cond (digit `(loop for mod from #b00 to #b11 @@ -321,13 +321,13 @@ (ash ,digit 3) (ash mod 6) r/m) - do (define-disassembler (,operator ext-opcode ,cpu-mode nil t) ,lambda-list ,@body)))) + do (define-disassembler (,operator ext-opcode ,cpu-mode nil t ,operand-size) ,lambda-list ,@body)))) ((symbolp lambda-list) - `(setf (opcode-disassembler ,opcode ,cpu-mode) (list ,backup-p ,operator ,cpu-mode ',lambda-list ,@body))) + `(setf (opcode-disassembler ,opcode ,cpu-mode) (list ,backup-p ,operator ,(or operand-size cpu-mode) ',lambda-list ,@body))) (t (let ((defun-name (intern (format nil "~A-~A-~X~@[-~A~]" 'disassembler operator opcode cpu-mode)))) `(progn (defun ,defun-name ,lambda-list ,@body) - (setf (opcode-disassembler ,opcode ',cpu-mode) (list ,backup-p ,operator ',cpu-mode ',defun-name)) + (setf (opcode-disassembler ,opcode ',cpu-mode) (list ,backup-p ,operator ',(or operand-size cpu-mode) ',defun-name)) ',defun-name))))) (defun disassemble-simple-prefix (code operator opcode operand-size address-size rex) @@ -507,7 +507,8 @@ (:32-bit '(:eax :ecx :edx :ebx :esp :ebp :esi :edi)) (:64-bit '(:rax :rcx :rdx :rbx :rsp :rbp :rsi :rdi :r8 :r9 :r10 :r11 :r12 :13 :r14 :r15)) (:mm '(:mm0 :mm1 :mm2 :mm3 :mm4 :mm5 :mm6 :mm7)) - (:xmm '(:xmm0 :xmm1 :xmm2 :xmm3 :xmm4 :xmm5 :xmm6 :xmm7)))) + (:xmm '(:xmm0 :xmm1 :xmm2 :xmm3 :xmm4 :xmm5 :xmm6 :xmm7)) + (:segment '(:es :cs :ss :ds :fs :gs)))) (defun encode-reg/mem (operand mode) (check-type mode (member nil :8-bit :16-bit :32-bit :64-bit :mm :xmm)) @@ -837,12 +838,12 @@ (remove nil fixed-operands)) code)) -(defun decode-reg-modrm (code operator opcode operand-size address-size rex operand-ordering) +(defun decode-reg-modrm (code operator opcode operand-size address-size rex operand-ordering &optional (reg-mode operand-size)) (declare (ignore opcode rex)) (values (list* operator (order-operands operand-ordering :reg (nth (ldb (byte 3 3) (car code)) - (register-set-by-mode operand-size)) + (register-set-by-mode reg-mode)) :modrm (ecase address-size (:32-bit (code-call (decode-reg-modrm-32 code operand-size))) @@ -1131,15 +1132,25 @@ (defmacro reg-cr (op-reg op-cr opcode &rest extras) `(return-when (encode-reg-cr operator legacy-prefixes ,op-reg ,op-cr ,opcode operator-mode default-rex ,@extras))) -(defmacro sreg-modrm (op-sreg op-modrm opcode) - `(let* ((reg-map '(:es :cs :ss :ds :fs :gs)) - (reg-index (position ,op-sreg reg-map))) - (when reg-index - (return-values-when - (merge-encodings (encoded-values :opcode ,opcode - :reg reg-index - :rex default-rex) - (encode-reg/mem ,op-modrm operator-mode)))))) +(defmacro sreg-modrm (op-sreg op-modrm opcode &rest extras) + `(progn + (assembler + (let* ((reg-map '(:es :cs :ss :ds :fs :gs)) + (reg-index (position ,op-sreg reg-map))) + (when reg-index + (return-values-when + (merge-encodings (encoded-values :opcode ,opcode + :reg reg-index + :rex default-rex + ,@extras) + (encode-reg/mem ,op-modrm operator-mode)))))) + (disassembler + (define-disassembler (operator ,opcode nil nil nil :16-bit) + decode-reg-modrm + (operand-ordering operand-formals + :reg ',op-sreg + :modrm ',op-modrm) + :segment)))) (defmacro moffset (opcode op-offset type fixed-operand) `(progn @@ -1812,10 +1823,10 @@ (moffset #xa0 src (uint 16) (dst :ax)) (opcode-reg-imm #xb8 dst src (xint 16)) (imm-modrm src dst #xc7 0 (xint 16)) - (sreg-modrm src dst #x8c) - (sreg-modrm dst src #x8e) (reg-modrm dst src #x8b) - (reg-modrm src dst #x89)) + (reg-modrm src dst #x89) + (sreg-modrm src dst #x8c) + (sreg-modrm dst src #x8e)) (define-operator/32 :movl (src dst) (moffset #xa3 dst (uint 32) (src :eax))

1 0

[movitz-cvs] CVS movitz
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv17288 Modified Files: movitz.asd Log Message: Provide. --- /project/movitz/cvsroot/movitz/movitz.asd 2008/02/25 23:16:21 1.2 +++ /project/movitz/cvsroot/movitz/movitz.asd 2008/02/25 23:43:45 1.3 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <ffjeld(a)common-lisp.net> ;;;; Created at: Thu Jan 15 18:40:58 2004 ;;;; -;;;; $Id: movitz.asd,v 1.2 2008/02/25 23:16:21 ffjeld Exp $ +;;;; $Id: movitz.asd,v 1.3 2008/02/25 23:43:45 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -28,6 +28,8 @@ :license "BSD-like, see accopanying file COPYING." :description "An (dis-)assembler framework, with support for x86 in 16, 32, and 64-bit modes." :serial t + :perform (load-op :after (op c) + (provide 'movitz-asm)) :components ((:file "asm") (:file "asm-x86"))) @@ -43,6 +45,8 @@ :default-component-class movitz-source-file :serial t :depends-on (binary-types movitz-asm) + :perform (load-op :after (op c) + (provide 'movitz)) :components ((:file "packages") (:file "movitz") (:file "parse")

1 0

[movitz-cvs] CVS binary-types
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/binary-types In directory clnet:/tmp/cvs-serv17193 Modified Files: binary-types.asd Log Message: Provide. --- /project/movitz/cvsroot/binary-types/binary-types.asd 2008/02/25 20:11:41 1.1 +++ /project/movitz/cvsroot/binary-types/binary-types.asd 2008/02/25 23:43:24 1.2 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <ffjeld(a)common-lisp.net> ;;;; Created at: Thu Jan 15 18:40:58 2004 ;;;; -;;;; $Id: binary-types.asd,v 1.1 2008/02/25 20:11:41 ffjeld Exp $ +;;;; $Id: binary-types.asd,v 1.2 2008/02/25 23:43:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -25,4 +25,6 @@ :author "Frode V. Fjeld" :license "BSD-like, see accopanying file COPYING." :description "A library for reading and writing binary records." + :perform (load-op :after (op c) + (provide 'binary-types)) :components ((:file "binary-types")))

1 0

[movitz-cvs] CVS movitz
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv13638 Modified Files: packages.lisp Log Message: Insane hack to make asdf work. Someone please make sense of this. --- /project/movitz/cvsroot/movitz/packages.lisp 2007/03/01 17:49:44 1.56 +++ /project/movitz/cvsroot/movitz/packages.lisp 2008/02/25 23:34:46 1.57 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Sat Nov 15 21:39:55 2003 ;;;; -;;;; $Id: packages.lisp,v 1.56 2007/03/01 17:49:44 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.57 2008/02/25 23:34:46 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1276,6 +1276,11 @@ #:vector-read-more-p )) +(print '(muerte::un-backquote ; make asdf/sbcl realize that these symbols exists.. + muerte::backquote-comma + muerte::backquote-comma-at + muerte::backquote-comma-dot) + (make-broadcast-stream)) (defpackage #:movitz (:use :common-lisp :binary-types)

1 0

[movitz-cvs] CVS movitz
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv13493 Modified Files: asm.lisp Log Message: Add indirect-operand-offset. --- /project/movitz/cvsroot/movitz/asm.lisp 2008/02/23 22:35:08 1.15 +++ /project/movitz/cvsroot/movitz/asm.lisp 2008/02/25 23:34:11 1.16 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm.lisp,v 1.15 2008/02/23 22:35:08 ffjeld Exp $ +;;;; $Id: asm.lisp,v 1.16 2008/02/25 23:34:11 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -19,6 +19,9 @@ #:immediate-operand #:indirect-operand-p #:indirect-operand + #:indirect-operand-offset + #:instruction-operands + #:instruction-operator #:register-operand #:resolve-operand #:unresolved-symbol @@ -112,6 +115,12 @@ (defun indirect-operand-p (operand) (typep operand 'indirect-operand)) +(defun indirect-operand-offset (operand) + (check-type operand indirect-operand) + (reduce #'+ operand + :key (lambda (x) + (if (integerp x) x 0)))) + (deftype pc-relative-operand () '(cons (eql :pc+)))

1 0

[movitz-cvs] CVS movitz
by ffjeld 25 Feb '08

25 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv13388 Modified Files: asm-x86.lisp Log Message: Disengage warning. --- /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/23 22:35:10 1.30 +++ /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/25 23:33:43 1.31 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm-x86.lisp,v 1.30 2008/02/23 22:35:10 ffjeld Exp $ +;;;; $Id: asm-x86.lisp,v 1.31 2008/02/25 23:33:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -288,11 +288,11 @@ (let ((bit-pos (* 8 (1- (ceiling (integer-length pos) 8))))) (if (not (plusp bit-pos)) (progn - (unless (or (eq nil decoder) - (eq nil (svref table pos)) - (equal decoder (svref table pos))) - (warn "Redefining disassembler for ~@[~(~A~) ~]opcode #x~X from ~{~S ~}to ~{~S~^ ~}." - operator-mode opcode (svref table pos) decoder)) + #+(or) (unless (or (eq nil decoder) + (eq nil (svref table pos)) + (equal decoder (svref table pos))) + (warn "Redefining disassembler for ~@[~(~A~) ~]opcode #x~X from ~{~S ~}to ~{~S~^ ~}." + operator-mode opcode (svref table pos) decoder)) (setf (svref table pos) decoder)) (set-it (or (svref table (ldb (byte 8 bit-pos) pos)) (setf (svref table (ldb (byte 8 bit-pos) pos))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs February 2008