Changeset 2952 for src/ERTLptr/ERTLptr.ma

Timestamp:

Mar 26, 2013, 2:01:15 PM (7 years ago)

Author:

tranquil

Message:

• corrected all back-end premains to not pass any arguments to the main
• premain fetching is made by fetch_function in joint_semantics.ma
• reorganised some definition between Traces.ma and joint_fullexec.ma

File:

• src/ERTLptr/ERTLptr.ma (modified) (1 diff)

src/ERTLptr/ERTLptr.ma

@@ -68 +68 @@
   res in
 let res ≝ add_graph … l2
-  (sequential … (CALL ERTLptr ? (inl … (prog_main … p)) 4 it) l3)
+  (sequential … (CALL ERTLptr ? (inl … (prog_main … p)) 0 it) l3)
   res in
 let res ≝ add_graph … l3