aboutsummaryrefslogtreecommitdiffstats
path: root/manual/CHAPTER_Eval/grep-it.sh
blob: 0f4f95ae595fb46acda680701c5e98761a01e217 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
#!/bin/bash

openmsp430_mods="
omsp_alu
omsp_clock_module
omsp_dbg
omsp_dbg_uart
omsp_execution_unit
omsp_frontend
omsp_mem_backbone
omsp_multiplier
omsp_register_file
omsp_sfr
omsp_sync_cell
omsp_sync_reset
omsp_watchdog
openMSP430"

or1200_mods="
or1200_alu
or1200_amultp2_32x32
or1200_cfgr
or1200_ctrl
or1200_dc_top
or1200_dmmu_tlb
or1200_dmmu_top
or1200_du
or1200_except
or1200_fpu
or1200_freeze
or1200_ic_fsm
or1200_ic_ram
or1200_ic_tag
or1200_ic_top
or1200_if
or1200_immu_tlb
or1200_lsu
or1200_mem2reg
or1200_mult_mac
or1200_operandmuxes
or1200_pic
or1200_pm
or1200_qmem_top
or1200_reg2mem
or1200_rf
or1200_sb
or1200_sprs
or1200_top
or1200_tt
or1200_wbmux"

grep_regs() {
	x=$(grep '^ Number of Slice Registers:' $1.syr | sed 's/.*: *//;' | cut -f1 -d' ')
	echo $x | sed 's,^ *$,-1,'
}

grep_luts() {
	x=$(grep '^ Number of Slice LUTs:' $1.syr | sed 's/.*: *//;' | cut -f1 -d' ')
	echo $x | sed 's,^ *$,-1,'
}

grep_freq() {
	x=$(grep 'Minimum period.*Maximum Frequency' $1.syr | sed 's/\.[0-9]*MHz.*//;' | cut -f3 -d:)
	echo $x | sed 's,^ *$,-1,'
}

for mod in $openmsp430_mods $or1200_mods; do
	printf '%-30s s,$, \\& %6d \\& %6d \\& %4d MHz \\& %6d \\& %6d \\& %4d MHz \\\\\\\\,;\n' "/${mod//_/\\\\_}}/" \
			$(grep_regs ${mod}) $(grep_luts ${mod}) $(grep_freq ${mod}) \
			$(grep_regs ${mod}_ys) $(grep_luts ${mod}_ys) $(grep_freq ${mod}_ys)
done

# for mod in $openmsp430_mods $or1200_mods; do
# 	[ $mod = "or1200_top" -o $mod = "or1200_dmmu_top" -o $mod = or1200_dmmu_tlb -o $mod = or1200_immu_tlb ] && continue
# 	regs=$(grep_regs ${mod}) regs_ys=$(grep_regs ${mod}_ys)
# 	luts=$(grep_luts ${mod}) luts_ys=$(grep_luts ${mod}_ys)
# 	freq=$(grep_freq ${mod}) freq_ys=$(grep_freq ${mod}_ys)
# 	if [ $regs -gt 0 -a $regs_ys -gt 0 ]; then regs_p=$(( 100*regs_ys / regs )); else regs_p=NaN; fi
# 	if [ $luts -gt 0 -a $luts_ys -gt 0 ]; then luts_p=$(( 100*luts_ys / luts )); else luts_p=NaN; fi
# 	if [ $freq -gt 0 -a $freq_ys -gt 0 ]; then freq_p=$(( 100*freq_ys / freq )); else freq_p=NaN; fi
# 	printf '%-30s %3s %3s %3s\n' $mod $regs_p $luts_p $freq_p
#
# done
lass="o">> 0.0 then return 1.0; elsif X < 0.0 then return -1.0; else return 0.0; end if; end SIGN; function CEIL (X : REAL) return REAL is begin assert false severity failure; end CEIL; function FLOOR (X : REAL) return REAL is begin assert false severity failure; end FLOOR; function ROUND (X : REAL) return REAL is begin assert false severity failure; end ROUND; function TRUNC (X : REAL) return REAL is begin assert false severity failure; end; function fmod (X, Y : REAL) return REAL; attribute foreign of fmod : function is "VHPIDIRECT fmod"; function fmod (X, Y : REAL) return REAL is begin assert false severity failure; end; function "mod" (X, Y : REAL) return REAL is variable res : real; begin assert y /= 0.0 report "ieee.math_real.""mod"": dividend is 0.0" severity failure; res := fmod (x, y); if res /= 0.0 then if x > 0.0 xor y > 0.0 then res := res + y; end if; end if; return res; end "mod"; function REALMAX (X, Y : REAL) return REAL is begin assert false severity failure; end; function REALMIN (X, Y : REAL) return REAL is begin assert false severity failure; end; procedure UNIFORM (SEED1, SEED2 : inout POSITIVE; X : out REAL) is variable z, k : Integer; variable s1, s2 : Integer; begin k := seed1 / 53668; s1 := 40014 * (seed1 - k * 53668) - k * 12211; if s1 < 0 then seed1 := s1 + 2147483563; else seed1 := s1; end if; k := seed2 / 52774; s2 := 40692 * (seed2 - k * 52774) - k * 3791; if s2 < 0 then seed2 := s2 + 2147483399; else seed2 := s2; end if; z := seed1 - seed2; if z < 1 then z := z + 2147483562; end if; x := real (z) * 4.656613e-10; end UNIFORM; function SQRT (X : REAL) return REAL is begin assert false severity failure; end; function CBRT (X : REAL) return REAL is begin assert false severity failure; end; function "**" (X : INTEGER; Y : REAL) return REAL is begin return real (x) ** y; end "**"; function "**" (X : REAL; Y : REAL) return REAL is begin assert false severity failure; end; function EXP (X : REAL) return REAL is begin assert false severity failure; end; function LOG (X : REAL) return REAL is begin assert false severity failure; end; function LOG2 (X : REAL) return REAL is begin assert false severity failure; end; function LOG10 (X : REAL) return REAL is begin assert false severity failure; end; function LOG (X : REAL; BASE : REAL) return REAL is begin return log (x) / log (base); end log; function SIN (X : REAL) return REAL is begin assert false severity failure; end; function COS (X : REAL) return REAL is begin assert false severity failure; end; function TAN (X : REAL) return REAL is begin assert false severity failure; end; function ARCSIN (X : REAL) return REAL is begin assert false severity failure; end; function ARCCOS (X : REAL) return REAL is begin assert false severity failure; end; function ARCTAN (Y : REAL) return REAL is begin assert false severity failure; end; function ARCTAN (Y, X : REAL) return REAL is begin assert false severity failure; end; function SINH (X : REAL) return REAL is begin assert false severity failure; end; function COSH (X : REAL) return REAL is begin assert false severity failure; end; function TANH (X : REAL) return REAL is begin assert false severity failure; end; function ARCSINH (X : REAL) return REAL is begin assert false severity failure; end; function ARCCOSH (X : REAL) return REAL is begin assert false severity failure; end; function ARCTANH (Y : REAL) return REAL is begin assert false severity failure; end; end MATH_REAL;