Expression.fs

(* Represents a expression in a CFG node
 *
 * SumConst :  R1 = R2 + c
 * Ass2 :      *(R1 + c1) = R2 + c2
 * Ass3 :      R1 = *(R2 + c1 ) + c2
 * LeqConst :  R1 ≤ c
 * GeqConst :  R1 ≥ c
 * GeqAloc :   R1 ≥ R2
 *
 * ------------------ Defined by me ------------------
 * Global dec : R1, R2,..., Rn
 * SimpleAss : R1 = val		about an aloc global declared
 *
 * Array dec : A[0...size-1] = k 
 * ArrayAss : A[i] = k
 * ArrayLeqConst: A[i] <= c
 * ArrayGeqConst: A[i] => c
 *
 * Heap dec : R1 = malloc(s1), R2 = malloc(s2), ..., Rn = = malloc(sn)
 * SimpleHAss : R1 = val	about an aloc dynamically declared
 *
 * TimesConst : R1 = R2 * c
 * SumAloc : R1 = R2 + R3
 * TimesAloc : R1 = R2 * R3
 *
 * If : points to condition and its negation
 * While : points to condition and its negation
 * Return
 *)

type aloc = string;;
type Exp =
    |SumConst of aloc * aloc * int 
    |Ass2 of aloc * int * aloc * int 
    |Ass3 of aloc * aloc * int * int
    |LeqConst of aloc * int 
    |GeqConst of aloc * int 
    |GeqAloc of aloc * aloc

    |GlobalDec of aloc list
    |SimpleAss of aloc * int

    |Array of aloc * int * int
    |ArrayAss of aloc * aloc * aloc
    |ArrayLeqConst of aloc * aloc * int
    |ArrayGeqConst of aloc * aloc * int

    |HeapDec of (aloc * int) list
    |SimpleHAss of aloc * int

    |TimesConst of aloc * aloc * int
    |SumAloc of aloc * aloc * aloc
    |TimesAloc of aloc * aloc * aloc

    |If
    |While
    |Return
;;