Revision cefc3744
Added by Pierre-Loïc Garoche almost 11 years ago
| src/backends/C/c_backend_src.ml | ||
|---|---|---|
| 4 | 4 |
open Machine_code |
| 5 | 5 |
open C_backend_common |
| 6 | 6 |
|
| 7 |
module type MODIFIERS_SRC = |
|
| 8 |
sig |
|
| 9 |
end |
|
| 10 |
|
|
| 11 |
module EmptyMod = |
|
| 12 |
struct |
|
| 13 |
end |
|
| 14 |
|
|
| 15 |
module Main = functor (Mod: MODIFIERS_SRC) -> |
|
| 16 |
struct |
|
| 17 |
|
|
| 7 | 18 |
(********************************************************************************************) |
| 8 | 19 |
(* Instruction Printing functions *) |
| 9 | 20 |
(********************************************************************************************) |
| ... | ... | |
| 370 | 381 |
(* Print nodes one by one (in the previous order) *) |
| 371 | 382 |
List.iter (print_machine dependencies source_fmt) machines; |
| 372 | 383 |
main_print source_fmt |
| 373 |
|
|
| 384 |
end |
|
| 374 | 385 |
|
| 375 | 386 |
(* Local Variables: *) |
| 376 | 387 |
(* compile-command:"make -C ../../.." *) |
Also available in: Unified diff
Specialized the prefix/postfix modifiers through functors arguments
git-svn-id: https://cavale.enseeiht.fr/svn/lustrec/lustre_compiler/branches/cleaner_backend@281 041b043f-8d7c-46b2-b46e-ef0dd855326e