Salvador Abreu / PaCCS

Download as
Browse Code ยป

Commit 034c6d493d02fcbb39c24d171231c8bac4469da2

Authored by Salvador Abreu
1 parent 7d0195a6
Exists in master

arrays

Showing 1 changed file with 9 additions and 3 deletions   Show diff stats
fz/paccs/output.pl
  Diff comments   View file @034c6d4
@@ -37,6 +37,12 @@ cg_var(decl, var(N,int(LB,UB),_I,_A), _ST) --> @@ -37,6 +37,12 @@ cg_var(decl, var(N,int(LB,UB),_I,_A), _ST) -->
37 37
38 cg_var(init, var(_,int(_,_),_,_), _) --> []. 38 cg_var(init, var(_,int(_,_),_,_), _) --> [].
39 39
  40 +cg_var(decl, val(N,int,lit(INIT,_),_), _) -->
  41 + { format_to_codes(S, " const int ~w = ~w;\n", [N, INIT]) },
  42 + S.
  43 +
  44 +cg_var(init, val(_,int,_,_), _) --> [].
  45 +
40 % -- array of variables - - - - - - - - - - - - - - - - - - - - - - - - - - - - 46 % -- array of variables - - - - - - - - - - - - - - - - - - - - - - - - - - - -
41 47
42 cg_var(decl, var(N,array(_T,LB,UB),[],_), _ST) --> !, 48 cg_var(decl, var(N,array(_T,LB,UB),[],_), _ST) --> !,
@@ -51,15 +57,15 @@ cg_var(init, var(N,array(T,ALB,AUB),[],_), _ST) --> !, @@ -51,15 +57,15 @@ cg_var(init, var(N,array(T,ALB,AUB),[],_), _ST) --> !,
51 57
52 % -- array of constants - - - - - - - - - - - - - - - - - - - - - - - - - - - - 58 % -- array of constants - - - - - - - - - - - - - - - - - - - - - - - - - - - -
53 59
54 -cg_var(decl, var(N,array(_T,LB,UB),lit(INIT,array(_)),_), _ST) --> 60 +cg_var(decl, val(N,array(_T,LB,UB),lit(INIT,array(_)),_), _ST) -->
55 { nonvar(INIT), INIT=[_|_] }, !, 61 { nonvar(INIT), INIT=[_|_] }, !,
56 { SZ is UB-LB+1, 62 { SZ is UB-LB+1,
57 - format_to_codes(S, " int ~w[~d] = {", [N, SZ]) }, 63 + format_to_codes(S, " const int ~w[~d] = {", [N, SZ]) },
58 S, 64 S,
59 cg_constant_list(INIT, " "), 65 cg_constant_list(INIT, " "),
60 " };\n". 66 " };\n".
61 67
62 -cg_var(init, var(_N,array(_T,_LB,_UB),lit(INIT,array(_)),_), _ST) --> 68 +cg_var(init, val(_N,array(_T,_LB,_UB),lit(INIT,array(_)),_), _ST) -->
63 { nonvar(INIT), INIT=[_|_] }, !, 69 { nonvar(INIT), INIT=[_|_] }, !,
64 []. 70 [].
65 71