cgen/testsuite.scm

   1 ; CGEN testsuite driver.
   2 ; Copyright (C) 2009 Doug Evans
   3 ; This file is part of CGEN.
   4
   5 ; Global state variables.
   6
   7 ; Specify which application.
   8 (set! APPLICATION 'TESTSUITE)
   9 \f
  10 ; Initialize the options.
  11
  12 (define (option-init!)
  13   ;;(set! CURRENT-COPYRIGHT copyright-fsf)
  14   ;;(set! CURRENT-PACKAGE package-cgen)
  15   *UNSPECIFIED*
  16 )
  17 \f
  18 ; Testsuite init,finish,analyzer support.
  19
  20 ; Initialize any testsuite specific things before loading the .cpu file.
  21
  22 (define (testsuite-init!)
  23   (desc-init!)
  24   (mode-set-biggest-word-bitsizes!)
  25   *UNSPECIFIED*
  26 )
  27
  28 ; Finish any testsuite specific things after loading the .cpu file.
  29 ; This is separate from analyze-data! as cpu-load performs some
  30 ; consistency checks in between.
  31
  32 (define (testsuite-finish!)
  33   (desc-finish!)
  34   *UNSPECIFIED*
  35 )
  36
  37 ; Compute various needed globals and assign any computed fields of
  38 ; the various objects.  This is the standard routine that is called after
  39 ; a .cpu file is loaded.
  40
  41 (define (testsuite-analyze!)
  42   (desc-analyze!)
  43
  44   ; Initialize the rtl->c translator.
  45   (rtl-c-config!)
  46
  47   ; Only include semantic operands when computing the format tables if we're
  48   ; generating operand instance tables.
  49   ; ??? Actually, may always be able to exclude the semantic operands.
  50   ; Still need to traverse the semantics to derive machine computed attributes.
  51 ;;  (arch-analyze-insns! CURRENT-ARCH
  52 ;;                     #t ; include aliases?
  53 ;;                     #f ; build operand instance table?
  54 ;;                     )
  55
  56   *UNSPECIFIED*
  57 )
  58 \f
  59 ;;
  60
  61 (define (cgen-test.h)
  62   (logit 1 "Generating testsuite.out ...\n")
  63   (string-write "CGEN Testsuite")
  64 )