#!hacchpsimguile -b
!#
;; "fib-test-c-01.hacchpsimscm"
;; vi: ft=scheme
;;	$Id: fib-test-c-01.hacchpsimscm,v 1.3 2008/05/08 04:34:43 fang Exp $
;; @haco@ fib-test-c.haco-a
;; @chpsimtrace@ fib-test-c-01.chpsimtrace

;; Testing failure to open trace file.

(use-modules (hackt hackt-primitives))

(define trace-name "fib-test-c-01.chpsimtrace")

(load-from-path "basic-trace-analysis.hacchpsimscm")

(define cycle-reference (hac:parse-reference "fibber.S"))

(load-from-path "trace-reference-cycle.hacchpsimscm")

"cycle-time: 8 (as good as it gets, copy-buffer is critical)"

"channel A[0]:"
(channel-send-receive-criticality crit "fibber.A[0]")
"channel A[1]:"
(channel-send-receive-criticality crit "fibber.A[1]")
"channel B:"
(channel-send-receive-criticality crit "fibber.B")
"channel BB:"
(channel-send-receive-criticality crit "fibber.BB")
"channel BBB:"
(channel-send-receive-criticality crit "fibber.BBB")
"channel S:"
(channel-send-receive-criticality crit "fibber.S")
"channel S2:"
(channel-send-receive-criticality crit "fibber.S2")




