Add optional alignment argument to alloca, load and store rules.

infer/src/llvm/lAst.ml

@@ -40,8 +40,7 @@ type instr =
   | CondBranch of operand * variable * variable
   | Load of variable * typ * variable
   | Store of operand * typ * variable
-  | Alloc of variable * typ * int * int (* return variable, element type,
+  | Alloc of variable * typ * int (* return variable, element type, number of elements *)
-                                           number of elements, alignment *)
   | Binop
 
 type func_def = FuncDef of variable * typ option * (typ * string) list * instr list

infer/src/llvm/lLexer.mll

@@ -123,6 +123,7 @@ rule token = parse
   (*| "extractvalue" { EXTRACTVALUE }*)
   (*| "insertvalue" { INSERTVALUE }*)
   (* memory access and addressing operations *)
+  | "align" { ALIGN }
   | "alloca" { ALLOCA }
   | "load" { LOAD }
   | "store" { STORE }

infer/src/llvm/lParser.mly

@@ -93,8 +93,8 @@
 (*%token EXTRACTVALUE*)
 (*%token INSERTVALUE*)
 (* memory access and addressing operations *)
+%token ALIGN (* argument for below operations *)
 %token ALLOCA
-%token ALIGN (* argument for alloca *)
 %token LOAD
 %token STORE
 (*%token FENCE*)
@@ -195,12 +195,15 @@ instr:
   | BR LABEL lbl = variable { UncondBranch lbl }
   | BR BIT op = operand COMMA LABEL lbl1 = variable COMMA LABEL lbl2 = variable { CondBranch (op, lbl1, lbl2) }
   (* Memory access operations *)
-  | var=variable EQUALS ALLOCA tp=typ (*COMMA ALIGN sz=CONSTANT_INT*) { Alloc (var, tp, 1, 1) }
+  | var = variable EQUALS ALLOCA tp = typ option(align) { Alloc (var, tp, 1) }
-  | var = variable EQUALS LOAD tp = ptr_typ ptr = variable { Load (var, tp, ptr) }
+  | var = variable EQUALS LOAD tp = ptr_typ ptr = variable option(align) { Load (var, tp, ptr) }
-  | STORE val_tp = typ value = operand COMMA ptr_tp = ptr_typ var = variable { Store (value, val_tp, var) }
+  | STORE val_tp = typ value = operand COMMA ptr_tp = ptr_typ var = variable option(align) { Store (value, val_tp, var) }
     (* don't yet know why val_tp and ptr_tp would be different *)
   | variable EQUALS binop { Binop }
 
+align:
+  | COMMA ALIGN sz = CONSTANT_INT { sz }
+
 binop:
   | ADD arith_options binop_args { () }
   | FADD fast_math_flags binop_args { () }

infer/src/llvm/lTrans.ml

@@ -55,7 +55,8 @@ let rec trans_instrs (cfg : Cfg.cfg) (procdesc : Cfg.Procdesc.t)
           let new_sil_instr =
             Sil.Set (trans_variable var, trans_typ tp, trans_operand op, Sil.dummy_location) in
           (new_sil_instr :: sil_instrs, locals)
-      | Alloc (var, tp, _, _) ->
+      | Alloc (var, tp, num_elems) ->
+          (* num_elems currently ignored *)
           begin match var with
           | Global (Name var_name) | Local (Name var_name) ->
               let new_local = (Mangled.from_string var_name, trans_typ (Tptr tp)) in