movitz-cvs February 2008

movitz-cvs@common-lisp.net

1 participants
66 discussions

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

25 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv8791 Modified Files: movitz.asd Log Message: Don't forget movitz-asm. --- /project/movitz/cvsroot/movitz/movitz.asd 2008/02/25 20:11:01 1.1 +++ /project/movitz/cvsroot/movitz/movitz.asd 2008/02/25 23:16:21 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: movitz.asd,v 1.1 2008/02/25 20:11:01 ffjeld Exp $ +;;;; $Id: movitz.asd,v 1.2 2008/02/25 23:16:21 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -42,7 +42,7 @@ :description "A compiler, run-time, and libraries for Common Lisp on the x86." :default-component-class movitz-source-file :serial t - :depends-on (binary-types) + :depends-on (binary-types movitz-asm) :components ((:file "packages") (:file "movitz") (:file "parse")

1 0

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

25 Feb '08

Update of /project/movitz/cvsroot/public_html In directory clnet:/project/movitz/public_html Modified Files: style.css Log Message: fresh copy --- /project/movitz/cvsroot/public_html/style.css 2004/01/13 11:31:55 1.1 +++ /project/movitz/cvsroot/public_html/style.css 2008/02/25 21:47:53 1.2 @@ -1,260 +1,54 @@ -/* Style code taken from oswd.net, this design originally by haran. -/* original header: -/* TITLE: Stylesheet for Purple Haze -/* URI : /purplehaze/purplehaze.css -/* MODIF: 2002-12-15 17:34 +0800 - -/* ###### Color Scheme ###### */ - -/* - * CHANGING THE COLOR SCHEME - * ------------------------- - * - * Four basic colors were used in the design. To change the - * color scheme, just edit these four values below. - * - */ - -.topOfPage, q, h1, h2, h3, .headerTitle, .siteMap, .siteMap *, .headerLinks, .headerLinks *, .sideBox div, #footer * -{ /* Text Color: */ color: /* #a0a0ff; */ #1111ff; } - -q, h2, #header, .sideBox, .sideBox div, #footer -{ /* Border Color: */ border-color: #c0c0ff; } - -#header, .sideBox div, .sideBox a:hover -{ /* Background Color (darker): */ background-color: #f0f0ff; } - - -q, .sideBox a, .sideBox span, #footer - /* Background Color (lighter): */ - { background-color: #fcfcff; } - - - -/* ###### Browser-specific Styles ###### */ - -/* For IE & Mozilla-based browsers: */ - -.LHS { - margin-left: 2.5mm; - float: left; - clear: left; - width: 10em; -} - -.RHS { - margin-right: 2.5mm; - float: right; - clear: right; - width: 14em; - font-size: small; -} - -/* For Mozilla-based (CSS2-fully complaint) browsers only: */ - -[class~="LHS"] { - margin-left: 5mm; -} - -[class~="RHS"] { - margin-right: 5mm; -} - - -/* ###### Body Text ###### */ - -#bodyText { - line-height: 1.5em; - margin: 10mm 14em 0 12em; - padding: 0 1em 1ex 1em; -} - -#bodyTextWide { - line-height: 1.5em; - margin: 10mm 2em 0 12em; - padding: 0 1em 1ex 1em; -} - -#bodyText p { - padding-bottom: 1ex; -} - -#bodyText ul { - padding-bottom: 1ex; -} - -.topOfPage { - font-size: 90%; - font-weight: bold; - font-variant: small-caps; - text-decoration: none; - padding-left: 1ex; - padding-right: 1ex; - float: right; -} - -.smallCaps { - font-variant: small-caps; -} - -body { - background-color: white; - color: black; - font-family: "arial"; /* verdana, tahoma, helvetica, arial, sans-serif;*/ - font-size: 100%; - margin: 0; -} - -h1, h2, h3 { - font-family: "arial"; /* , sans-serif; */ -} - -h1 { - font-weight: bold; - font-size: 150%; - font-family: "arial"; - border-bottom: 1px solid; - padding-bottom: 0.5ex; -} - -h2 { - font-weight: bold; - font-size: 100%; - font-family: "arial"; - padding-bottom: 0.5ex; -} - -acronym { - background-color: inherit; - color: teal; - border-bottom: 1px dashed teal; - cursor: help; -} - -code { - font-family: "lucida console", monospace; - font-size: 90%; -} - -img { - border: 0; -} - -q { - font-family: "arial"; /* , verdana, helvetica, arial, sans-serif; */ - font-weight: bold; - border: 2px dotted; - margin: 0 1em 1ex 1em; - padding: 0.5ex 0.5ex 0.5ex 1ex; - width: 9em; - float: left; -} - - -/* ###### Header ###### */ - -#header { - border-bottom: 2px solid; - height: 5em; - margin-bottom: 5mm; - padding: 2em 2.5mm 0 5mm; -} - -.headerTitle { - font-size: 300%; -} - -.headerLinks { - text-align: right; - margin-right: 2.5mm; - float: right; - clear: right; -} - -.headerLinks * { - text-decoration: none; - font-weight: bold; - padding-right: 1ex; -} - -.headerLinks a:hover { - text-decoration: underline; -} - -.siteMap { - font-size: small; - text-align: left; - margin-left: 2.5mm; - margin-right: 2.5mm; - float: left; - clear: left; -} - -.siteMap * { - text-decoration: none; -/* font-weight: bold; */ - padding-right: 1ex; -} - -.siteMap a:hover { - text-decoration: underline; -} - - -/* ###### Side Box ###### */ - -.sideBox { - border-top: 2px solid; - border-bottom: 2px solid; - margin-top: 5mm; -} - -.sideBox div { - font-weight: bold; - border-bottom: 1px dashed; - padding: 0.5ex 0.5em 0.5ex 0.75em; -} - -.sideBox a, .sideBox a:hover, .sideBox span { - color: black; - text-decoration: none; - line-height: 1.25em; - display: block; - padding: 1ex 0.5em 1ex 0.75em; -} - - -/* ###### Footer ###### */ - -#footer { - color: inherit; - border-top: 2px solid; - border-bottom: 2px solid; - padding-top: 0.75ex; - padding-bottom: 0.75ex; - clear: left; -} - -.footerImg { - padding-right: 3mm; - padding-top: 2mm; - float: none; -} - -#footer div { - padding-left: 3mm; -} - -#footer * { - background-color: inherit; - font-size: 92%; -} - -#footer a:hover { - text-decoration: none; -} - -.footerCol2 { - left: 7em; -} +.header { + font-size: medium; + background-color:#336699; + color:#ffffff; + border-style:solid; + border-width: 5px; + border-color:#002244; + padding: 1mm 1mm 1mm 5mm; +} + +.footer { + font-size: small; + font-style: italic; + text-align: right; + background-color:#336699; + color:#ffffff; + border-style:solid; + border-width: 2px; + border-color:#002244; + padding: 1mm 1mm 1mm 1mm; +} + +.footer a:link { + font-weight:bold; + color:#ffffff; + text-decoration:underline; +} + +.footer a:visited { + font-weight:bold; + color:#ffffff; + text-decoration:underline; +} + +.footer a:hover { + font-weight:bold; + color:#002244; + text-decoration:underline; } + +.check {font-size: x-small; + text-align:right;} + +.check a:link { font-weight:bold; + color:#a0a0ff; + text-decoration:underline; } + +.check a:visited { font-weight:bold; + color:#a0a0ff; + text-decoration:underline; } + +.check a:hover { font-weight:bold; + color:#000000; + text-decoration:underline; }

1 0

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

25 Feb '08

Update of /project/movitz/cvsroot/public_html In directory clnet:/tmp/cvs-serv15409 Modified Files: index.html Log Message: No more ia-x86. --- /project/movitz/cvsroot/public_html/index.html 2008/02/25 20:19:48 1.32 +++ /project/movitz/cvsroot/public_html/index.html 2008/02/25 21:32:13 1.33 @@ -76,19 +76,18 @@ tree via anonymous cvs, as described <a href="http://www.common-lisp.net/faq.shtml">here</a></p> - <p> There are currently three modules in the repository: + <p> There are two modules in use in the repository: <ul> - <li><tt>ia-x86</tt></li> <li><tt>binary-types</tt></li> <li><tt>movitz</tt></li> </ul> - <p> The former two are required for building and using the - latter. So far, this combo has been run under Allegro, SBCL, and - CMUCL, but everything is supposed to be platform-independent ANSI - Common Lisp. CLisp apparently dumps core for some reason during the - build process. </p> + <p> Binary-types is a library that is required for building and + using Movitz. So far, this combo has been run under Allegro, SBCL, + and CMUCL, but everything is supposed to be platform-independent + ANSI Common Lisp. CLisp apparently dumps core for some reason during + the build process. </p> The main build process is run by two operators. Create-image creates a symbolic Movitz lisp-world from scratch. This symbolic

1 0

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

25 Feb '08

Update of /project/movitz/cvsroot/public_html In directory clnet:/tmp/cvs-serv32519 Modified Files: index.html Log Message: more news. --- /project/movitz/cvsroot/public_html/index.html 2008/01/13 22:32:04 1.31 +++ /project/movitz/cvsroot/public_html/index.html 2008/02/25 20:19:48 1.32 @@ -15,6 +15,16 @@ <h3>Most recent news</h3> <pre> +2008-02-25 Frode V. Fjeld <frodef(a)cs.uit.no> + + * movitz.asd: Created an ASDF system definition. + + * movitz/asm.lisp, movitz/asm-x86.lisp: Created new assembler and + disassembler that's less overengineered (the design goals of + ia-x86 were not originally to serve as an assembler). This speeds + up compiles considerably; on the order of twice as fast, and + reduces the overall footprint of the movitz system too. + 2008-01-13 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> * movitz/losp/muerte/memref.lisp: Fixed (setf memref-int :type

1 0

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

25 Feb '08

Update of /project/movitz/cvsroot/public_html In directory clnet:/tmp/cvs-serv32409 Modified Files: ChangeLog Log Message: *** empty log message *** --- /project/movitz/cvsroot/public_html/ChangeLog 2008/01/13 22:32:02 1.11 +++ /project/movitz/cvsroot/public_html/ChangeLog 2008/02/25 20:19:23 1.12 @@ -1,3 +1,13 @@ +2008-02-25 Frode V. Fjeld <frodef(a)cs.uit.no> + + * movitz.asd: Created an ASDF system definition. + + * movitz/asm.lisp, movitz/asm-x86.lisp: Created new assembler and + disassembler that's less overengineered (the design goals of + ia-x86 were not originally to serve as an assembler). This speeds + up compiles considerably; on the order of twice as fast, and + reduces the overall footprint of the movitz system too. + 2008-01-13 Frode Vatvedt Fjeld <frodef(a)cs.uit.no> * movitz/losp/muerte/memref.lisp: Fixed (setf memref-int :type

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-serv31018 Added Files: binary-types.asd Log Message: Initial attempt. --- /project/movitz/cvsroot/binary-types/binary-types.asd 2008/02/25 20:11:41 NONE +++ /project/movitz/cvsroot/binary-types/binary-types.asd 2008/02/25 20:11:41 1.1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2008, Frode V. Fjeld ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; ;;;; Filename: movitz.asd ;;;; Description: Movitz ASDF system definition. ;;;; 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 $ ;;;; ;;;;------------------------------------------------------------------ (defpackage binary-types-asd (:use :cl :asdf)) (in-package binary-types-asd) (defsystem binary-types :name "Binary-types" :maintainer "ffjeld(a)common-lisp.net" :author "Frode V. Fjeld" :license "BSD-like, see accopanying file COPYING." :description "A library for reading and writing binary records." :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-serv30926 Added Files: movitz.asd Log Message: Initial attempt. --- /project/movitz/cvsroot/movitz/movitz.asd 2008/02/25 20:11:01 NONE +++ /project/movitz/cvsroot/movitz/movitz.asd 2008/02/25 20:11:01 1.1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*- ;;;;------------------------------------------------------------------ ;;;; ;;;; Copyright (C) 2008, Frode V. Fjeld ;;;; ;;;; For distribution policy, see the accompanying file COPYING. ;;;; ;;;; Filename: movitz.asd ;;;; Description: Movitz ASDF system definition. ;;;; Author: Frode Vatvedt Fjeld <ffjeld(a)common-lisp.net> ;;;; Created at: Thu Jan 15 18:40:58 2004 ;;;; ;;;; $Id: movitz.asd,v 1.1 2008/02/25 20:11:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ (defpackage movitz-asd (:use :cl :asdf)) (in-package movitz-asd) (defsystem movitz-asm :name "Movitz Assembler" :version "1.0" :maintainer "ffjeld(a)common-lisp.net" :author "Frode V. Fjeld" :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 :components ((:file "asm") (:file "asm-x86"))) (defclass movitz-source-file (cl-source-file) ()) (defsystem movitz :name "Movitz" :version "0.1" :maintainer "ffjeld(a)common-lisp.net" :author "Frode V. Fjeld" :license "BSD-like, see accopanying file COPYING." :description "A compiler, run-time, and libraries for Common Lisp on the x86." :default-component-class movitz-source-file :serial t :depends-on (binary-types) :components ((:file "packages") (:file "movitz") (:file "parse") (:file "eval") (:file "environment") (:file "compiler-types") (:file "compiler-protocol") (:file "storage-types") (:file "multiboot") (:file "bootblock") (:file "image") (:file "stream-image") (:file "assembly-syntax") (:file "compiler") (:file "special-operators") (:file "special-operators-cl"))) #+sbcl (defmethod perform :around (op (file movitz-source-file)) (handler-bind ((sb-ext:defconstant-uneql #'continue)) (call-next-method)))

1 0

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

24 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv3033 Modified Files: image.lisp Log Message: Add disassembly comments. --- /project/movitz/cvsroot/movitz/image.lisp 2008/02/23 22:34:14 1.115 +++ /project/movitz/cvsroot/movitz/image.lisp 2008/02/24 12:13:06 1.116 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.115 2008/02/23 22:34:14 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.116 2008/02/24 12:13:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1244,6 +1244,79 @@ (when (= offset (bt:slot-offset 'movitz-run-time-context slot-name)) (return slot-name)))) +#-ia-x86 +(defun comment-instruction (instruction funobj pc) + "Return a list of strings that comments on INSTRUCTION." + (declare (ignore pc)) + (loop for operand in (asm:instruction-operands instruction) + when (and (typep operand 'asm:indirect-operand) + (member :edi operand) + (run-time-context-find-slot (asm:indirect-operand-offset operand)) + (not (member (asm:instruction-operator instruction) + '(:leal :lea)))) + collect (format nil "<Global slot ~A>" + (run-time-context-find-slot (asm:indirect-operand-offset operand))) +;; when (and (typep operand 'ia-x86::operand-indirect-register) +;; (eq 'ia-x86::edi (ia-x86::operand-register operand)) +;; (typep instruction 'ia-x86-instr::lea) +;; (or (not (ia-x86::operand-register2 operand)) +;; (eq 'ia-x86::edi (ia-x86::operand-register2 operand)))) +;; collect (let ((x (+ (* (ia-x86::operand-scale operand) +;; (image-nil-word *image*)) +;; (ia-x86::operand-offset operand) +;; (ecase (ia-x86::operand-register2 operand) +;; (ia-x86::edi (image-nil-word *image*)) +;; ((nil) 0))))) +;; (case (ldb (byte 3 0) x) +;; (#.(tag :character) +;; (format nil "Immediate ~D (char ~S)" +;; x (code-char (ldb (byte 8 8) x)))) +;; (#.(mapcar 'tag +fixnum-tags+) +;; (format nil "Immediate ~D (fixnum ~D #x~X)" +;; x +;; (truncate x +movitz-fixnum-factor+) +;; (truncate x +movitz-fixnum-factor+))) +;; (t (format nil "Immediate ~D" x)))) + when (and funobj + (typep operand 'asm:indirect-operand) + (member :esi operand) + (<= 12 (asm:indirect-operand-offset operand))) + collect (format nil "~A" + (nth (truncate (- (+ (asm:indirect-operand-offset operand) + (if (member :edi operand) + (image-nil-word *image*) + 0)) + (slot-offset 'movitz-funobj 'constant0)) + 4) + (movitz-funobj-const-list funobj))) +;; when (and funobj +;; (typep operand 'ia-x86::operand-indirect-register) +;; (eq 'ia-x86::esi (ia-x86::operand-register2 operand)) +;; (eq 'ia-x86::edi (ia-x86::operand-register operand)) +;; (<= 12 (ia-x86::operand-offset operand))) +;; collect (format nil "~A" (nth (truncate (- (+ (ia-x86::operand-offset operand) +;; (* (ia-x86::operand-scale operand) +;; (image-nil-word *image*))) +;; (slot-offset 'movitz-funobj 'constant0)) +;; 4) +;; (movitz-funobj-const-list funobj))) +;; when (typep operand 'ia-x86::operand-rel-pointer) +;; collect (let* ((x (+ pc +;; (imagpart (ia-x86::instruction-original-datum instruction)) +;; (length (ia-x86:instruction-prefixes instruction)) +;; (ia-x86::operand-offset operand))) +;; (label (and funobj (car (find x (movitz-funobj-symtab funobj) :key #'cdr))))) +;; (if label +;; (format nil "branch to ~S at ~D" label x) +;; (format nil "branch to ~D" x))) + when (and (typep operand '(and integer asm:immediate-operand)) + (<= #x100 operand #x10000) + (= (tag :character) (mod operand 256))) + collect (format nil "#\\~C" (code-char (truncate operand 256))) + when (and (typep operand '(and integer asm:immediate-operand)) + (zerop (mod operand +movitz-fixnum-factor+))) + collect (format nil "#x~X" (truncate operand +movitz-fixnum-factor+)))) + #+ia-x86 (defun comment-instruction (instruction funobj pc) "Return a list of strings that comments on INSTRUCTION." @@ -1396,7 +1469,7 @@ when (let ((x (find pc (movitz-funobj-symtab funobj) :key #'cdr))) (when x (list pc (list (format nil " ~A" (car x))) "" nil))) collect it - collect (list pc data instruction nil) + collect (list pc data instruction (comment-instruction instruction funobj pc)) do (incf pc (length data)))))) (when recursive (let ((*recursive-disassemble-remember-funobjs* @@ -1479,7 +1552,7 @@ collect (list pc data instruction - nil #+ignore (comment-instruction instruction nil pc)) + (comment-instruction instruction nil pc)) do (incf pc (length data)))) (values)))

1 0

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

24 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv31988 Modified Files: load.lisp Log Message: Don't load ia-x86 by default. --- /project/movitz/cvsroot/movitz/load.lisp 2008/02/04 21:05:23 1.12 +++ /project/movitz/cvsroot/movitz/load.lisp 2008/02/24 11:57:35 1.13 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Thu Jan 15 18:40:58 2004 ;;;; -;;;; $Id: load.lisp,v 1.12 2008/02/04 21:05:23 ffjeld Exp $ +;;;; $Id: load.lisp,v 1.13 2008/02/24 11:57:35 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -32,15 +32,15 @@ (load (compile-file #p"asm-x86")) ; ia-x86 needs them while testing/migrating. -(let ((*default-pathname-defaults* (merge-pathnames #p"../ia-x86/"))) - #+(or cmu) (let ((pwd (ext:default-directory))) - (progn - (unwind-protect - (progn - (setf (ext:default-directory) #p"../ia-x86/") - (load "load")) - (setf (ext:default-directory) pwd)))) - #-(or cmu) (load "load")) +#+ia-x86 (let ((*default-pathname-defaults* (merge-pathnames #p"../ia-x86/"))) + #+(or cmu) (let ((pwd (ext:default-directory))) + (progn + (unwind-protect + (progn + (setf (ext:default-directory) #p"../ia-x86/") + (load "load")) + (setf (ext:default-directory) pwd)))) + #-(or cmu) (load "load")) #+allegro (progn (load (compile-file #p"../infunix/procfs"))

1 0

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

23 Feb '08

Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv7366 Modified Files: compiler.lisp Log Message: Remove remnants of ia-x86. --- /project/movitz/cvsroot/movitz/compiler.lisp 2008/02/17 00:10:11 1.192 +++ /project/movitz/cvsroot/movitz/compiler.lisp 2008/02/23 22:36:21 1.193 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.192 2008/02/17 00:10:11 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.193 2008/02/23 22:36:21 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -991,32 +991,6 @@ (assemble-funobj funobj combined-code)))) funobj) - -(defun diss (code) - (format nil "~&;; Diss: -~:{~4D: ~16<~{ ~2,'0X~}~;~> ~A~@[ ;~{ ~A~}~]~%~}" - (loop with code-position = 0 and instruction-octets = nil - for pc = 0 then code-position - for instruction = (progn - (setf instruction-octets nil) - (ia-x86:decode-read-octet (lambda () - (incf code-position) - (loop while (and code (not (typep (car code) '(unsigned-byte 8)))) - do (warn "diss bad byte at ~D: ~S" code-position (pop code)) - (incf code-position)) - (let ((x (pop code))) - (when x (push x instruction-octets)) - x)))) - collect (if (not instruction) - (list pc (nreverse instruction-octets) nil '("???")) - (list pc - (nreverse instruction-octets) - ;;(ia-x86::cbyte-to-octet-list (ia-x86::instruction-original-datum instruction)) - instruction - (comment-instruction instruction nil pc))) - while code))) - - (defun assemble-funobj (funobj combined-code) (multiple-value-bind (code-vector code-symtab) (let ((asm:*instruction-compute-extra-prefix-map* @@ -1056,20 +1030,13 @@ (break "entry%2: ~D" b)) (unless (<= 0 c 4095) (break "entry%3: ~D" c))) - (loop for ((entry-label slot-name)) on '((entry%1op code-vector%1op) - (entry%2op code-vector%2op) - (entry%3op code-vector%3op)) - do (cond - ((assoc entry-label code-symtab) - (let ((offset (cdr (assoc entry-label code-symtab)))) - (setf (slot-value funobj slot-name) - (cons offset funobj)) - #+ignore (when (< offset #x100) - (vector-push offset code-vector)))) - #+ignore - ((some (lambda (label) (assoc label code-symtab)) - (mapcar #'car rest)) - (vector-push 0 code-vector)))) + (loop for (entry-label slot-name) in '((entry%1op code-vector%1op) + (entry%2op code-vector%2op) + (entry%3op code-vector%3op)) + do (when (assoc entry-label code-symtab) + (let ((offset (cdr (assoc entry-label code-symtab)))) + (setf (slot-value funobj slot-name) + (cons offset funobj))))) (check-locate-concistency code-vector) (setf (movitz-funobj-code-vector funobj) (make-movitz-vector (length code-vector)

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