File: ppo.cat

package info (click to toggle)
herdtools7 7.58-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 19,732 kB
  • sloc: ml: 128,583; ansic: 3,827; makefile: 670; python: 407; sh: 212; awk: 14
file content (13 lines) | stat: -rw-r--r-- 374 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
PPO
(* Computes ppo the ARM and PPC way *)

(* Fixpoint from i -> c in instructions and transitivity *)
let rec ci = ci0 | (ci;ii) | (cc;ci)
and ii = ii0 | ci | (ic;ci) | (ii;ii)
and cc = cc0 | ci | (ci;ic) | (cc;cc)
and ic = ic0 | ii | cc | (ic;cc) | (ii ; ic) (* | ci inclus dans ii et cc *)

let ppo =
  let ppoR = ii & (R * R)
  and ppoW = ic & (R * W) in
  ppoR | ppoW