1 ;; CPU to use for the testsuite. -*- Scheme -*-
4 (name testsuite) ; name of cpu
5 (comment ".cpu file for the testsuite")
13 (base-insn-bitsize 16)
14 (decode-assist (0 1 2 3))
19 (comment "experimental cpu family")
26 (comment "mach for testsuite")
31 (name test) (comment "test") (attrs)
33 ;(pipeline all "" () ((fetch) (decode) (execute) (writeback)))
34 (unit u-exec "Execution Unit" () 1 1 () () () ())
37 ;; Some useful pmacros for testcases.
39 (define-pmacro (newline) (.print "\n"))
41 ;; Record name of test for debugging purposes.
43 (define-pmacro (test-name name)
44 (.print "TEST: " name "\n")
47 ;; Print TEXT as the expected output.
49 (define-pmacro (print-match text)
56 ;; Print EXPR as the text to be verified.
58 (define-pmacro (print-expr expr)
65 ;; THUNK is invoked to exercise whatever is being tested.
67 (define-pmacro (print-thunk thunk)