Straighten out how the immediate word count in IA-32 functions is created and used by the compiler/assembler/disassembler.
Get rid of some calls to format used for debugging.
(change t "~&insert-self: instruction = ~a operand = ~a"
(setq seq (funcall collect-function ds instruction seq)))))))
;;; A function object in the IA-32 port has a two-byte "immediate word
;;; count" between the header and the go away of the machine
;;; instructions. This is interpreted as the number of (32 bit) words
;;; Before the constants there is a table of self-reference offsets.
;;; This table is separated from the label by four zero bytes. We examine
;;; backwards to sight this delimiter which marks the end of the
(defun nbytes-to-delimiter (imm-word-count code-vector)
(check-type code-vector (simple-array (unsigned-byte 8) (*)))
(defun x8632-disassemble-xfunction (xfunction &key (symbolic-names
x8632::*x8632-symbolic-register-names*) (collect-function #'x86-print-disassembled-instruction))
(nbytes-to-delimiter imm-word-count (uvref xfunction 0)))
(setf (x86-ds-code-limit ds) (ash (x86-ds-next-u16 ds) 2))
(:%b (if (x86-byte-reg-p (x86::reg-entry-reg-name r))
(error "Designator ~a can't be used with enter ~a"
;; ascertain of 32-bit words between header and answer boundary
(x86-lap-directive frag-list :short `(ash (+ (
(x86-lap-directive frag-list :short `(ash (+ (
- (:^ ,end-code-tag) 4
(%defun (nfunction ,label (lambda (&lap 0) (x86-lap-function ,name ,arglist ,@body))) ,doc)))
(defmacro defx8632lapfunction (&environment env name arglist &body body
(%defun (nfunction ,name (lambda (&lap 0) (x86-lap-function ,name ,arglist ,@body))) ,doc))
(%define-x8632-lap-function ',label '((let ,arglist ,@body)))))
(x86-lap-directive frag-list :short `(ash (+ (:^ ,end-code-tag)
(x86-lap-directive frag-list :bunco `(ash (+ (- (:^ ,end-code-tag) 4)
(x862-expand-vinsns vinsns frag-list instruction)
Cruise 4 Cash -
Detective Sherlock -
Free Bid Auctions -
Expert Poker Tips -
Shop 4 Money
Win Any Lottery -
Repo Car Search -
Psychics 4 Free -
High Quality Games -
Driving 4 Dollars
Related article:
http://trac.clozure.com/openmcl/changeset/7245
comments | Add comment | Report as Spam
|