[movitz-cvs] CVS update: ia-x86/packages.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/ia-x86
In directory common-lisp.net:/tmp/cvs-serv20514

Added Files:
	packages.lisp 
Log Message:
this is the one
Date: Tue Jan 13 06:03:12 2004
Author: ffjeld

Index: ia-x86/packages.lisp
diff -u /dev/null ia-x86/packages.lisp:1.3
--- /dev/null	Tue Jan 13 06:03:12 2004
+++ ia-x86/packages.lisp	Tue Jan 13 06:03:12 2004
@@ -0,0 +1,99 @@
+;;;;------------------------------------------------------------------
+;;;; 
+;;;;    Copyright (C) 20012000, 2002-2003,
+;;;;    Department of Computer Science, University of Tromsø, Norway
+;;;; 
+;;;; Filename:      packages.lisp
+;;;; Description:   Operand representation.
+;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
+;;;; Created at:    Wed Feb 16 14:02:57 2000
+;;;; Distribution:  See the accompanying file COPYING.
+;;;;                
+;;;; $Id: packages.lisp,v 1.3 2004/01/13 11:03:12 ffjeld Exp $
+;;;;                
+;;;;------------------------------------------------------------------
+
+(in-package "CL-USER")
+
+(defpackage "IA-X86"
+  (:use "COMMON-LISP")
+  (:export
+   #:init-instruction-tables
+   #:*cpu-mode*
+   #:decode-sub-stream
+   #:decode-read-octet
+   #:decode
+   #:def-instr
+   #:def-set
+   ;; operands
+   #:r/m8 
+   #:r/m16 
+   #:r/m32
+   #:r8 
+   #:r16 
+   #:r32
+   #:+r8 
+   #:+r16 
+   #:+r32
+   #:pointer
+   #:simm8 
+   #:imm8 
+   #:imm16 
+   #:imm32
+   #:rel8 
+   #:rel16 
+   #:rel32
+   #:ptr16-16 
+   #:ptr16-32
+   #:al 
+   #:ax 
+   #:eax 
+   #:cl 
+   #:dx 
+   #:sreg
+   #:cs 
+   #:ds 
+   #:es 
+   #:fs 
+   #:gs 
+   #:ss
+   #:m32real 
+   #:m64real 
+   #:m80real 
+   #:m16int 
+   #:m32int
+   ;; instruction class
+   #:instruction
+   #:instruction-operands
+   #:instruction-prefixes
+   ;; instruction prefixes
+   #:lock 
+   #:repne 
+   #:repz
+   #:cs-override 
+   #:ds-override 
+   #:es-override
+   #:fs-override 
+   #:gs-override 
+   #:ss-override
+   #:16-bit-operand
+   #:16-bit-address
+   #:*symtab-lookup*
+   ;; proglist
+   #:proglist-encode
+   #:make-label
+   ;; read
+   #:read-instruction
+   #:read-proglist
+   #:asm
+   ;; symtab
+   #:symtab-lookup-label
+   #:symtab-try-lookup-label
+   ))
+
+(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
+this package, so that we may have instructions named 'and' etc."))