movitz-cvs

movitz-cvs@common-lisp.net

2595 discussions

[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

[movitz-cvs] CVS update: ia-x86/proglist.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-serv21377 Modified Files: proglist.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:04 2004 Author: ffjeld Index: ia-x86/proglist.lisp diff -u ia-x86/proglist.lisp:1.2 ia-x86/proglist.lisp:1.3 --- ia-x86/proglist.lisp:1.2 Fri Jan 16 06:54:14 2004 +++ ia-x86/proglist.lisp Mon Feb 9 19:04:04 2004 @@ -9,11 +9,11 @@ ;;;; Created at: Mon May 15 13:43:55 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: proglist.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $ +;;;; $Id: proglist.lisp,v 1.3 2004/02/10 00:04:04 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -(in-package "IA-X86") +(in-package #:ia-x86) (defvar *label-counter* 0) (defun make-label ()

1 0

[movitz-cvs] CVS update: ia-x86/prefixes.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-serv10144 Modified Files: prefixes.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:03:56 2004 Author: ffjeld Index: ia-x86/prefixes.lisp diff -u ia-x86/prefixes.lisp:1.2 ia-x86/prefixes.lisp:1.3 --- ia-x86/prefixes.lisp:1.2 Fri Jan 16 06:54:14 2004 +++ ia-x86/prefixes.lisp Mon Feb 9 19:03:56 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 20012000, 2003, +;;;; Copyright (C) 20012000, 2003-2004, ;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: prefixes.lisp @@ -9,11 +9,11 @@ ;;;; Created at: Tue Aug 15 22:34:30 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: prefixes.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $ +;;;; $Id: prefixes.lisp,v 1.3 2004/02/10 00:03:56 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -(in-package "IA-X86") +(in-package #:ia-x86) ;;; ---------------------------------------------------------------- ;;; Instruction prefixes

1 0

[movitz-cvs] CVS update: ia-x86/postload.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-serv513 Modified Files: postload.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:03:52 2004 Author: ffjeld Index: ia-x86/postload.lisp diff -u ia-x86/postload.lisp:1.3 ia-x86/postload.lisp:1.4 --- ia-x86/postload.lisp:1.3 Fri Jan 16 06:54:14 2004 +++ ia-x86/postload.lisp Mon Feb 9 19:03:52 2004 @@ -9,11 +9,11 @@ ;;;; Created at: Mon Jan 31 16:33:23 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: postload.lisp,v 1.3 2004/01/16 11:54:14 ffjeld Exp $ +;;;; $Id: postload.lisp,v 1.4 2004/02/10 00:03:52 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -(in-package "IA-X86") +(in-package #:ia-x86) (defun table-stats (prefix table) (format t "~&;; ~A ~D x86 instruction templates loaded.~%" @@ -45,12 +45,3 @@ (dotimes (i #x100 (nreverse r)) (when (null (aref table i)) (push i r))))))) - -;;;(table-stats "IA-X86: " *template-table*) -;;;(table-stats "IA-X86 2op: " *template-table-0f*) - - - - - -

1 0

[movitz-cvs] CVS update: ia-x86/packages.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-serv23425 Modified Files: packages.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:03:47 2004 Author: ffjeld Index: ia-x86/packages.lisp diff -u ia-x86/packages.lisp:1.2 ia-x86/packages.lisp:1.3 --- ia-x86/packages.lisp:1.2 Fri Jan 16 06:54:14 2004 +++ ia-x86/packages.lisp Mon Feb 9 19:03:47 2004 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 20012000, 2002-2003, +;;;; Copyright (C) 20012000, 2002-2004, ;;;; Department of Computer Science, University of Tromso, Norway ;;;; ;;;; Filename: packages.lisp @@ -9,14 +9,14 @@ ;;;; Created at: Wed Feb 16 14:02:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: packages.lisp,v 1.2 2004/01/16 11:54:14 ffjeld Exp $ +;;;; $Id: packages.lisp,v 1.3 2004/02/10 00:03:47 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -(in-package "CL-USER") +(in-package #:cl-user) -(defpackage "IA-X86" - (:use "COMMON-LISP") +(defpackage #:ia-x86 + (:use #:common-lisp) (:export #:init-instruction-tables #:*cpu-mode* @@ -91,9 +91,9 @@ #:symtab-try-lookup-label )) -(defpackage "IA-X86-INSTR" - (:use "IA-X86") - (:import-from "COMMON-LISP" t nil defclass load eval compile) +(defpackage #:ia-x86-instr + (:use #:ia-x86) + (:import-from #:common-lisp t nil defclass load eval compile) (:documentation - "All the specialized classes for IA-X86 instructions are put into + "All the specialized classes for ia-x86 instructions are put into this package, so that we may have instructions named 'and' etc."))

1 0

[movitz-cvs] CVS update: ia-x86/operands.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-serv11585 Modified Files: operands.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:03:42 2004 Author: ffjeld Index: ia-x86/operands.lisp diff -u ia-x86/operands.lisp:1.3 ia-x86/operands.lisp:1.4 --- ia-x86/operands.lisp:1.3 Mon Feb 9 18:46:23 2004 +++ ia-x86/operands.lisp Mon Feb 9 19:03:42 2004 @@ -9,11 +9,11 @@ ;;;; Created at: Wed Feb 16 14:02:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: operands.lisp,v 1.3 2004/02/09 23:46:23 ffjeld Exp $ +;;;; $Id: operands.lisp,v 1.4 2004/02/10 00:03:42 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ -(in-package "IA-X86") +(in-package #:ia-x86) ;;; ---------------------------------------------------------------- ;;; Operand types

1 0

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