Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv25422

Modified Files: asm.lisp Log Message: Add asm:*instruction-compute-extra-prefix-map* feature to assembler.

--- /project/movitz/cvsroot/movitz/asm.lisp 2008/01/31 21:11:24 1.4 +++ /project/movitz/cvsroot/movitz/asm.lisp 2008/02/02 00:33:04 1.5 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm.lisp,v 1.4 2008/01/31 21:11:24 ffjeld Exp $ +;;;; $Id: asm.lisp,v 1.5 2008/02/02 00:33:04 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -25,12 +25,14 @@ #:pc-relative-operand #:proglist-encode #:*pc* - #:*symtab*)) + #:*symtab* + #:*instruction-compute-extra-prefix-map*))

(in-package asm)

(defvar *pc* nil "Current program counter.") (defvar *symtab* nil "Current symbol table.") +(defvar *instruction-compute-extra-prefix-map* nil)

(deftype symbol-reference () '(cons (eql quote) (cons symbol null)))