cgen/dev-utils.scm

   1 ;; CGEN Debugging support.
   2 ;; Copyright (C) 2000, 2009 Red Hat, Inc.
   3 ;; This file is part of CGEN.
   4 ;; See file COPYING.CGEN for details.
   5
   6 ;; This file contains a collection of utilities for use when
   7 ;; analyzing cpu files from Scheme.
   8
   9 (define srcdir ".")
  10 (set! %load-path (cons srcdir %load-path))
  11
  12 (define (load-doc)
  13   (load "read")
  14   (load "desc")
  15   (load "desc-cpu")
  16   (load "html")
  17   ; ??? Necessary for the following case, dunno why.
  18   ; bash$ guile -l dev.scm
  19   ; guile> (load-doc)
  20   ; guile> (cload #:arch "./cpu/m32r.cpu")
  21   (set! APPLICATION 'DOC)
  22 )
  23
  24 (define (load-opc)
  25   (load "read")
  26   (load "desc")
  27   (load "desc-cpu")
  28   (load "opcodes")
  29   (load "opc-asmdis")
  30   (load "opc-ibld")
  31   (load "opc-itab")
  32   (load "opc-opinst")
  33   (set! APPLICATION 'OPCODES)
  34 )
  35
  36 (define (load-gtest)
  37   (load-opc)
  38   (load "gas-test")
  39   (set! APPLICATION 'GAS-TEST)
  40 )
  41
  42 (define (load-sid)
  43   (load "read")
  44   (load "utils-sim")
  45   (load "sid")
  46   (load "sid-cpu")
  47   (load "sid-model")
  48   (load "sid-decode")
  49   (set! APPLICATION 'SID-SIMULATOR)
  50 )
  51
  52 (define (load-sim)
  53   (load "read")
  54   (load "desc")
  55   (load "desc-cpu")
  56   (load "utils-sim")
  57   (load "sim")
  58   (load "sim-arch")
  59   (load "sim-cpu")
  60   (load "sim-model")
  61   (load "sim-decode")
  62   (set! APPLICATION 'SIMULATOR)
  63 )
  64
  65 (define (load-stest)
  66   (load-opc)
  67   (load "sim-test")
  68   (set! APPLICATION 'SIM-TEST)
  69 )
  70
  71 (define (load-testsuite)
  72   (load "read")
  73   (load "desc")
  74   (load "desc-cpu")
  75   (load "testsuite.scm")
  76   (set! APPLICATION 'TESTSUITE)
  77 )