load.lisp

   1 ;;;;------------------------------------------------------------------
   2 ;;;;
   3 ;;;;    Copyright (C) 2003-2004,
   4 ;;;;    Department of Computer Science, University of Tromsoe, Norway.
   5 ;;;;
   6 ;;;;    For distribution policy, see the accompanying file COPYING.
   7 ;;;;
   8 ;;;; Filename:      load.lisp
   9 ;;;; Description:
  10 ;;;; Author:        Frode Vatvedt Fjeld <frodef@acm.org>
  11 ;;;; Created at:    Thu Jan 15 15:42:34 2004
  12 ;;;;
  13 ;;;; $Id: load.lisp,v 1.1 2004/01/15 17:39:18 ffjeld Exp $
  14 ;;;;
  15 ;;;;------------------------------------------------------------------
  16
  17
  18 #+allegro (progn
  19             (load "system.lisp")
  20             (compile-system :ia-x86)
  21             (load-system :ia-x86)
  22             (load-system :ia-x86-instr :interpreted t))
  23
  24 #-allegro (progn
  25             (with-compilation-unit ()
  26               (mapcar (lambda (path)
  27                         (load (compile-file path :print nil)))
  28                       '("packages"
  29                         "ia-x86"
  30                         "symtab"
  31                         "prefixes"
  32                         "registers"
  33                         "operands"
  34                         "inline-data"
  35                         "alignment"
  36                         "read"
  37                         "codec"
  38                         "proglist"
  39                         "def-instr"
  40                         "postload")))
  41             (mapcar 'load
  42                     '("instr-mov"
  43                       "instr-add"
  44                       "instr-sub"
  45                       "instr-cmp"
  46                       "instr-push-pop"
  47                       "instr-mul-div"
  48                       "instr-branch"
  49                       "instr-and-or"
  50                       "instr-bit"
  51                       "instr-shift"
  52                       "instr-string"
  53                       "instr-misc"
  54                       "instr-fpu"
  55                       "instr-mmx"
  56                       "instr-simd")))
  57
  58 (ia-x86:init-instruction-tables)
  59