movitz-cvs February 2004

movitz-cvs@common-lisp.net

1 participants
166 discussions

[movitz-cvs] CVS update: movitz/image.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv29570 Modified Files: image.lisp Log Message: Don't use +code-vector-entry-factor+. Date: Mon Feb 9 19:29:10 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.10 movitz/image.lisp:1.11 --- movitz/image.lisp:1.10 Mon Feb 9 18:41:13 2004 +++ movitz/image.lisp Mon Feb 9 19:29:10 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.10 2004/02/09 23:41:13 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.11 2004/02/10 00:29:10 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1192,7 +1192,7 @@ collect (list pc nil (format nil " => Entry-point for ~D arguments <=" (1+ (position-if (lambda (x) - (= pc (* x +code-vector-entry-factor+))) + (= pc x)) entry-points))) nil) collect (list pc

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv5064 Modified Files: compiler.lisp Log Message: Removed defconstant +code-vector-entry-factor+ which I don't really know what was for. Date: Mon Feb 9 19:28:34 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.19 movitz/compiler.lisp:1.20 --- movitz/compiler.lisp:1.19 Mon Feb 9 19:25:28 2004 +++ movitz/compiler.lisp Mon Feb 9 19:28:34 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.19 2004/02/10 00:25:28 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.20 2004/02/10 00:28:34 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -110,8 +110,6 @@ (warn "~S shrunk from ~D to ~D bytes" name old-size new-size)))) (setf (gethash hash-name (function-code-sizes *image*)) new-size)) funobj) - -(defconstant +code-vector-entry-factor+ 1) (defclass movitz-funobj-pass1 () ((name

1 0

[movitz-cvs] CVS update: movitz/compiler.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv5981 Modified Files: compiler.lisp Log Message: Moved defconstant +enter-stack-frame-code+ to top of file. Date: Mon Feb 9 19:25:28 2004 Author: ffjeld Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.18 movitz/compiler.lisp:1.19 --- movitz/compiler.lisp:1.18 Sun Feb 8 18:24:13 2004 +++ movitz/compiler.lisp Mon Feb 9 19:25:28 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.18 2004/02/08 23:24:13 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.19 2004/02/10 00:25:28 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -54,6 +54,11 @@ (defvar *compiling-function-name*) (defvar muerte.cl:*compile-file-pathname* nil) +(defconstant +enter-stack-frame-code+ + '((:pushl :ebp) + (:movl :esp :ebp) + (:pushl :esi))) + (defun duplicatesp (list) "Returns TRUE iff at least one object occurs more than once in LIST." (if (null list) @@ -874,11 +879,6 @@ (values '((:pushl :ebx)) 1)) (t (error "make-2req confused by loc0: ~W, loc1: ~W" location-0 location-1))))) - -(defconstant +enter-stack-frame-code+ - '((:pushl :ebp) - (:movl :esp :ebp) - (:pushl :esi))) #+ignore (defun make-compiled-function-body-1rest (form funobj env top-level-p)

1 0

[movitz-cvs] CVS update: movitz/environment.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv2698 Modified Files: environment.lisp Log Message: Misspelled movitz-funobj-name as funobj-name. Date: Mon Feb 9 19:24:38 2004 Author: ffjeld Index: movitz/environment.lisp diff -u movitz/environment.lisp:1.3 movitz/environment.lisp:1.4 --- movitz/environment.lisp:1.3 Thu Feb 5 09:46:08 2004 +++ movitz/environment.lisp Mon Feb 9 19:24:38 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Nov 3 11:40:15 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: environment.lisp,v 1.3 2004/02/05 14:46:08 ffjeld Exp $ +;;;; $Id: environment.lisp,v 1.4 2004/02/10 00:24:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -198,7 +198,7 @@ (call-next-method)) (t (print-unreadable-object (object stream :type t :identity t) (format stream "of ~A binding~?" - (funobj-name (movitz-environment-funobj object)) + (movitz-funobj-name (movitz-environment-funobj object)) "~#[ nothing~; ~S~; ~S and ~S~:;~@{~#[~; and~] ~S~^,~}~]" (mapcar #'binding-name (mapcar #'cdr (movitz-environment-bindings object))))) object)))

1 0

[movitz-cvs] CVS update: movitz/stream-image.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv16321 Modified Files: stream-image.lisp Log Message: Added a fall-back method image-register32 for stream-images. Date: Mon Feb 9 19:23:40 2004 Author: ffjeld Index: movitz/stream-image.lisp diff -u movitz/stream-image.lisp:1.2 movitz/stream-image.lisp:1.3 --- movitz/stream-image.lisp:1.2 Mon Jan 19 06:23:41 2004 +++ movitz/stream-image.lisp Mon Feb 9 19:23:39 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Mon Aug 27 14:46:50 2001 ;;;; -;;;; $Id: stream-image.lisp,v 1.2 2004/01/19 11:23:41 ffjeld Exp $ +;;;; $Id: stream-image.lisp,v 1.3 2004/02/10 00:23:39 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -33,6 +33,10 @@ :initarg :nil-word :initform #x65 :reader image-nil-word))) + +(defmethod image-register32 ((image stream-image) register-name) + (declare (ignorable image) (ignore register-name)) + (error "A stream-image has no CPU state.")) (defmethod (setf image-stream-position) (value (image stream-image) &optional physicalp) (check-type value (integer 0 *))

1 0

[movitz-cvs] CVS update: ia-x86/read.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/ia-x86 In directory common-lisp.net:/tmp/cvs-serv6595 Modified Files: read.lisp Log Message: Forgot to quote #:ia-x86 when appearing as forms. Repeat after me: Don't check in code that has not been tested. Don't check in code that has not been tested. Date: Mon Feb 9 19:13:29 2004 Author: ffjeld Index: ia-x86/read.lisp diff -u ia-x86/read.lisp:1.3 ia-x86/read.lisp:1.4 --- ia-x86/read.lisp:1.3 Mon Feb 9 19:04:08 2004 +++ ia-x86/read.lisp Mon Feb 9 19:13:29 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Mon Jul 31 13:54:27 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: read.lisp,v 1.3 2004/02/10 00:04:08 ffjeld Exp $ +;;;; $Id: read.lisp,v 1.4 2004/02/10 00:13:29 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -63,7 +63,7 @@ (assert (member spec +all-registers+) (spec) "Expected a register: ~A" spec) - (find-symbol (symbol-name spec) #:ia-x86)) + (find-symbol (symbol-name spec) '#:ia-x86)) (defun is-register-p (spec) (and (symbolp spec) @@ -209,7 +209,7 @@ (loop for p in prefix-spec with user-size = nil if (symbolp p) - collect (let ((ps (find-symbol (symbol-name p) #:ia-x86))) + collect (let ((ps (find-symbol (symbol-name p) '#:ia-x86))) (if (decode-set +prefix-opcode-map+ ps :errorp nil) ps (error "No such prefix: ~A" p))) @@ -239,7 +239,7 @@ (t (make-instance (or (gethash instr-name *find-instruction-cache*) (setf (gethash instr-name *find-instruction-cache*) (multiple-value-bind (instr-symbol instr-symbol-status) - (find-symbol (string instr-name) #:ia-x86-instr) + (find-symbol (string instr-name) '#:ia-x86-instr) (unless instr-symbol-status (error "No instruction named ~A." (string instr-name))) instr-symbol)))

1 0

[movitz-cvs] CVS update: ia-x86/utilities.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/ia-x86 In directory common-lisp.net:/tmp/cvs-serv9504 Modified Files: utilities.lisp Log Message: Designate the ia-x86 package with #:ia-x86 rather than "IA-X86". Also, a few very minor edits. Date: Mon Feb 9 19:04:24 2004 Author: ffjeld Index: ia-x86/utilities.lisp diff -u ia-x86/utilities.lisp:1.2 ia-x86/utilities.lisp:1.3 --- ia-x86/utilities.lisp:1.2 Fri Jan 16 06:54:14 2004 +++ ia-x86/utilities.lisp Mon Feb 9 19:04:24 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 20012000, 2003, Frode Vatved Fjeld +;;;; Copyright (C) 20012000, 2003-2004, Frode Vatved Fjeld ;;;; ;;;; Filename: utilities.lisp ;;;; Description: @@ -8,13 +8,13 @@ ;;;; Created at: Sun Nov 2 14:51:21 EET 2003 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: utilities.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $ +;;;; $Id: utilities.lisp,v 1.3 2004/02/10 00:04:24 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ ;; FIXME: There is probably a better place in the great scheme of ;; things for stuff like this... -(in-package "IA-X86") +(in-package #:ia-x86) ;; Unfortunately ANSI doesn't specify the slots and initargs of ;; STYLE-WARNINGS... but we don't want to signal full WARNIGN either,

1 0

[movitz-cvs] CVS update: ia-x86/symtab.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/ia-x86 In directory common-lisp.net:/tmp/cvs-serv31617 Modified Files: symtab.lisp Log Message: Designate the ia-x86 package with #:ia-x86 rather than "IA-X86". Also, a few very minor edits. Date: Mon Feb 9 19:04:19 2004 Author: ffjeld Index: ia-x86/symtab.lisp diff -u ia-x86/symtab.lisp:1.2 ia-x86/symtab.lisp:1.3 --- ia-x86/symtab.lisp:1.2 Fri Jan 16 06:54:14 2004 +++ ia-x86/symtab.lisp Mon Feb 9 19:04:19 2004 @@ -1,19 +1,19 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2000, +;;;; Copyright (C) 2000, 2004, ;;;; Department of Computer Science, University of Tromso, Norway ;;;; -;;;; Filename: ia-x86-symtab.lisp +;;;; Filename: symtab.lisp ;;;; Description: Assembly symbolic lookups. ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Aug 22 10:01:38 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: symtab.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $ +;;;; $Id: symtab.lisp,v 1.3 2004/02/10 00:04:19 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -(in-package "IA-X86") +(in-package #:ia-x86) ;;; A symtab is a stack-organized list of "frames", where each frame ;;; is a hash-table.

1 0

[movitz-cvs] CVS update: ia-x86/registers.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/ia-x86 In directory common-lisp.net:/tmp/cvs-serv23107 Modified Files: registers.lisp Log Message: Designate the ia-x86 package with #:ia-x86 rather than "IA-X86". Also, a few very minor edits. Date: Mon Feb 9 19:04:13 2004 Author: ffjeld Index: ia-x86/registers.lisp diff -u ia-x86/registers.lisp:1.2 ia-x86/registers.lisp:1.3 --- ia-x86/registers.lisp:1.2 Fri Jan 16 06:54:14 2004 +++ ia-x86/registers.lisp Mon Feb 9 19:04:13 2004 @@ -1,19 +1,19 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2000, +;;;; Copyright (C) 2000, 2004, ;;;; Department of Computer Science, University of Tromso, Norway ;;;; -;;;; Filename: ia-x86-registers.lisp +;;;; Filename: registers.lisp ;;;; Description: ;;;; Author: Frode Vatvedt Fjeld <frodef(a)acm.org> ;;;; Created at: Tue Aug 1 10:24:59 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: registers.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $ +;;;; $Id: registers.lisp,v 1.3 2004/02/10 00:04:13 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -(in-package "IA-X86") +(in-package #:ia-x86) ;;; ---------------------------------------------------------------- ;;; Register sets

1 0

[movitz-cvs] CVS update: ia-x86/read.lisp
by Frode Vatvedt Fjeld 10 Feb '04

10 Feb '04

Update of /project/movitz/cvsroot/ia-x86 In directory common-lisp.net:/tmp/cvs-serv12096 Modified Files: read.lisp Log Message: Designate the ia-x86 package with #:ia-x86 rather than "IA-X86". Also, a few very minor edits. Date: Mon Feb 9 19:04:08 2004 Author: ffjeld Index: ia-x86/read.lisp diff -u ia-x86/read.lisp:1.2 ia-x86/read.lisp:1.3 --- ia-x86/read.lisp:1.2 Fri Jan 16 06:54:14 2004 +++ ia-x86/read.lisp Mon Feb 9 19:04:08 2004 @@ -9,11 +9,11 @@ ;;;; Created at: Mon Jul 31 13:54:27 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: read.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $ +;;;; $Id: read.lisp,v 1.3 2004/02/10 00:04:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -(in-package "IA-X86") +(in-package #:ia-x86) ;;; Implements the following assembly syntax: ;;; @@ -63,7 +63,7 @@ (assert (member spec +all-registers+) (spec) "Expected a register: ~A" spec) - (find-symbol (symbol-name spec) "IA-X86")) + (find-symbol (symbol-name spec) #:ia-x86)) (defun is-register-p (spec) (and (symbolp spec) @@ -209,7 +209,7 @@ (loop for p in prefix-spec with user-size = nil if (symbolp p) - collect (let ((ps (find-symbol (symbol-name p) "IA-X86"))) + collect (let ((ps (find-symbol (symbol-name p) #:ia-x86))) (if (decode-set +prefix-opcode-map+ ps :errorp nil) ps (error "No such prefix: ~A" p))) @@ -218,14 +218,6 @@ do (setf user-size p) finally (return (values prefixes user-size)))) -;;; (mapcar #'(lambda (p) -;;; (let ((ps (find-symbol (symbol-name p) -;;; "IA-X86"))) -;;; (if (decode-set *prefix-opcode-map* ps :errorp nil) -;;; ps -;;; (error "No such prefix: ~A" p)))) -;;; prefix-spec)) - (defvar *find-instruction-cache* (make-hash-table :test #'eq)) (defun read-instruction (sexpr) @@ -235,10 +227,10 @@ (setf (values prefix-list user-size) (read-prefixes (first sexpr)) instr-name (second sexpr) operand-list (nthcdr 2 sexpr)) - (setf prefix-list nil - user-size nil - instr-name (first sexpr) - operand-list (nthcdr 1 sexpr))) + (setf prefix-list nil + user-size nil + instr-name (first sexpr) + operand-list (nthcdr 1 sexpr))) (case instr-name (:align (make-instance 'alignment :type operand-list)) @@ -246,14 +238,14 @@ (mapcar #'read-operand operand-list)) (t (make-instance (or (gethash instr-name *find-instruction-cache*) (setf (gethash instr-name *find-instruction-cache*) - (multiple-value-bind (instr-symbol instr-symbol-status) - (find-symbol (string instr-name) "IA-X86-INSTR") - (unless instr-symbol-status - (error "No instruction named ~A." (string instr-name))) - instr-symbol))) - 'prefixes prefix-list - 'user-size user-size - 'operands (mapcar #'read-operand operand-list)))))) + (multiple-value-bind (instr-symbol instr-symbol-status) + (find-symbol (string instr-name) #:ia-x86-instr) + (unless instr-symbol-status + (error "No instruction named ~A." (string instr-name))) + instr-symbol))) + 'prefixes prefix-list + 'user-size user-size + 'operands (mapcar #'read-operand operand-list)))))) (defun inline-data-p (expr)

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
17
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

movitz-cvs February 2004