1 ; CGEN testsuite driver.
2 ; Copyright (C) 2009 Doug Evans
3 ; This file is part of CGEN.
5 ; Global state variables.
7 ; Specify which application.
8 (set! APPLICATION 'TESTSUITE)
10 ; Initialize the options.
12 (define (option-init!)
13 ;;(set! CURRENT-COPYRIGHT copyright-fsf)
14 ;;(set! CURRENT-PACKAGE package-cgen)
18 ; Testsuite init,finish,analyzer support.
20 ; Initialize any testsuite specific things before loading the .cpu file.
22 (define (testsuite-init!)
24 (mode-set-biggest-word-bitsizes!)
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.
32 (define (testsuite-finish!)
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.
41 (define (testsuite-analyze!)
44 ; Initialize the rtl->c translator.
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?
62 (logit 1 "Generating testsuite.out ...\n")
63 (string-write "CGEN Testsuite")