jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Preserve the order of type and classes definitions

Browse source
This commit is contained in:
Cédric Pasteur 2011-04-19 13:08:35 +02:00
parent 073ccc2603
commit 845d084658
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
compiler/obc/obc_utils.ml
View file

@ -197,15 +197,15 @@ let rec copy_array pass dest src = match dest.l_ty with
*) *)
let program_types p = let program_types p =
let add_type acc pd = match pd with let add_type pd acc = match pd with
| Ptype ty -> ty :: acc | Ptype ty -> ty :: acc
| _ -> acc | _ -> acc
in in
List.fold_left add_type [] p.p_desc List.fold_right add_type p.p_desc []
let program_classes p = let program_classes p =
let add_class acc pd = match pd with let add_class pd acc = match pd with
| Pclass cd -> cd :: acc | Pclass cd -> cd :: acc
| _ -> acc | _ -> acc
in in
List.fold_left add_class [] p.p_desc List.fold_right add_class p.p_desc []