Fix position of some comments

Author: dnezam

compiler/backend/clos_knownScript.sml

@@ -281,8 +281,8 @@ Datatype:
   | Tuple num (val_approx list) (* conses or tuples *)
   | Int int                     (* used to index tuples *)
   | Other                       (* unknown *)
-  | Impossible
-End                 (* value 'returned' by Raise *)
+  | Impossible                  (* value 'returned' by Raise *)
+End
 val val_approx_size_def = definition "val_approx_size_def"
 
 Definition merge_def[nocompute]:

compiler/backend/gc/gen_gc_partialScript.sml

@@ -238,8 +238,8 @@ End
 
 Datatype:
   data_sort = Protected 'a      (* pointer to old generations *)
-            | Real 'b
-End         (* data or pointer to current generation *)
+            | Real 'b           (* data or pointer to current generation *)
+End
 
 Definition to_gen_heap_address_def:
   (to_gen_heap_address conf (Data a) = Data (Real a)) /\

compiler/backend/reg_alloc/reg_allocScript.sml

@@ -1009,8 +1009,8 @@ Datatype:
              | Set num_set (* Fixed set *)
              | Branch (num_set option) clash_tree clash_tree
              | Seq clash_tree clash_tree
-End
              (* Binary branch, with an optional liveset at the head*)
+End
 
 (* --- clash_tree oracle checks --- *)
 Definition numset_list_delete_def:

compiler/backend/wordLangScript.sml

@@ -55,8 +55,8 @@ Datatype:
        | CodeBufferWrite num num (* code buffer address, byte to write *)
        | DataBufferWrite num num (* data buffer address, word to write *)
        | FFI string num num num num num_set (* FFI name, conf_ptr, conf_len, array_ptr, array_len, cut-set *)
-       | ShareInst memop num ('a exp)
-End (* memory operation, varname, expression for memory address *)
+       | ShareInst memop num ('a exp) (* memory operation, varname, expression for memory address *)
+End
 
 Definition raise_stub_location_def:
   raise_stub_location = word_num_stubs - 2

examples/lpr_checker/lprScript.sml

@@ -1166,8 +1166,8 @@ QED
 Datatype:
   step =
     Del cclause (* Clause to delete *)
-  | Add cclause
-End (* Clause to add *)
+  | Add cclause (* Clause to add *)
+End
 
 Type proof = ``:step list``
 

translator/monadic/examples/array_searchProgScript.sml

@@ -11,8 +11,8 @@ fun allowing_rebind f = Feedback.trace ("Theory.allow_rebinds", 1) f
 
 (* Create the data type to handle the array. *)
 Datatype:
-  state_array = <| arr : num list |>
-End (* single resizeable array *)
+  state_array = <| arr : num list |> (* single resizeable array *)
+End
 
 (* Data type for the exceptions *)
 Datatype: