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@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."))