|
Last change
on this file since 2746 was
2717,
checked in by sacerdot, 7 years ago
|
|
Extracted code for the whole compiler.
The space cost model is not there yet.
I have fixed by hand the few extraction problems
(i.e. composed coercions not extracted and type
definitions with wrong syntax).
I have also changed all axioms to be implemented
so that they do not fail at initialization time.
|
|
File size:
2.2 KB
|
| Line | |
|---|
| 1 | open Preamble |
|---|
| 2 | |
|---|
| 3 | open String |
|---|
| 4 | |
|---|
| 5 | open Sets |
|---|
| 6 | |
|---|
| 7 | open Listb |
|---|
| 8 | |
|---|
| 9 | open LabelledObjects |
|---|
| 10 | |
|---|
| 11 | open Graphs |
|---|
| 12 | |
|---|
| 13 | open I8051 |
|---|
| 14 | |
|---|
| 15 | open Order |
|---|
| 16 | |
|---|
| 17 | open Registers |
|---|
| 18 | |
|---|
| 19 | open BitVectorTrie |
|---|
| 20 | |
|---|
| 21 | open CostLabel |
|---|
| 22 | |
|---|
| 23 | open Hide |
|---|
| 24 | |
|---|
| 25 | open Proper |
|---|
| 26 | |
|---|
| 27 | open PositiveMap |
|---|
| 28 | |
|---|
| 29 | open Deqsets |
|---|
| 30 | |
|---|
| 31 | open ErrorMessages |
|---|
| 32 | |
|---|
| 33 | open PreIdentifiers |
|---|
| 34 | |
|---|
| 35 | open Errors |
|---|
| 36 | |
|---|
| 37 | open Extralib |
|---|
| 38 | |
|---|
| 39 | open Setoids |
|---|
| 40 | |
|---|
| 41 | open Monad |
|---|
| 42 | |
|---|
| 43 | open Option |
|---|
| 44 | |
|---|
| 45 | open Lists |
|---|
| 46 | |
|---|
| 47 | open Identifiers |
|---|
| 48 | |
|---|
| 49 | open Integers |
|---|
| 50 | |
|---|
| 51 | open AST |
|---|
| 52 | |
|---|
| 53 | open Division |
|---|
| 54 | |
|---|
| 55 | open Exp |
|---|
| 56 | |
|---|
| 57 | open Arithmetic |
|---|
| 58 | |
|---|
| 59 | open Extranat |
|---|
| 60 | |
|---|
| 61 | open Vector |
|---|
| 62 | |
|---|
| 63 | open Div_and_mod |
|---|
| 64 | |
|---|
| 65 | open Jmeq |
|---|
| 66 | |
|---|
| 67 | open Russell |
|---|
| 68 | |
|---|
| 69 | open List |
|---|
| 70 | |
|---|
| 71 | open Util |
|---|
| 72 | |
|---|
| 73 | open FoldStuff |
|---|
| 74 | |
|---|
| 75 | open BitVector |
|---|
| 76 | |
|---|
| 77 | open Types |
|---|
| 78 | |
|---|
| 79 | open Bool |
|---|
| 80 | |
|---|
| 81 | open Relations |
|---|
| 82 | |
|---|
| 83 | open Nat |
|---|
| 84 | |
|---|
| 85 | open Hints_declaration |
|---|
| 86 | |
|---|
| 87 | open Core_notation |
|---|
| 88 | |
|---|
| 89 | open Pts |
|---|
| 90 | |
|---|
| 91 | open Logic |
|---|
| 92 | |
|---|
| 93 | open Positive |
|---|
| 94 | |
|---|
| 95 | open Z |
|---|
| 96 | |
|---|
| 97 | open BitVectorZ |
|---|
| 98 | |
|---|
| 99 | open Pointers |
|---|
| 100 | |
|---|
| 101 | open ByteValues |
|---|
| 102 | |
|---|
| 103 | open BackEndOps |
|---|
| 104 | |
|---|
| 105 | open Joint |
|---|
| 106 | |
|---|
| 107 | val graph_to_lin_statement : |
|---|
| 108 | Joint.unserialized_params -> AST.ident List.list -> 'a1 |
|---|
| 109 | Identifiers.identifier_map -> Joint.joint_statement -> |
|---|
| 110 | Joint.joint_statement |
|---|
| 111 | |
|---|
| 112 | val chop : |
|---|
| 113 | ('a1 -> Bool.bool) -> 'a1 List.list -> ('a1, 'a1 List.list) Types.prod |
|---|
| 114 | Types.option |
|---|
| 115 | |
|---|
| 116 | type graph_visit_ret_type = |
|---|
| 117 | ((Nat.nat Identifiers.identifier_map, Identifiers.identifier_set) |
|---|
| 118 | Types.prod, __) Types.prod Types.sig0 |
|---|
| 119 | |
|---|
| 120 | val graph_visit : |
|---|
| 121 | Joint.unserialized_params -> AST.ident List.list -> __ -> |
|---|
| 122 | Identifiers.identifier_set -> Nat.nat Identifiers.identifier_map -> __ -> |
|---|
| 123 | Graphs.label List.list -> Nat.nat -> Nat.nat -> Graphs.label -> |
|---|
| 124 | graph_visit_ret_type |
|---|
| 125 | |
|---|
| 126 | val branch_compress : |
|---|
| 127 | Joint.graph_params -> AST.ident List.list -> __ -> Graphs.label Types.sig0 |
|---|
| 128 | -> __ |
|---|
| 129 | |
|---|
| 130 | val filter_labels : |
|---|
| 131 | PreIdentifiers.identifierTag -> (PreIdentifiers.identifier -> Bool.bool) -> |
|---|
| 132 | 'a1 LabelledObjects.labelled_obj List.list -> (__, 'a1) Types.prod |
|---|
| 133 | List.list |
|---|
| 134 | |
|---|
| 135 | val linearise_code : |
|---|
| 136 | Joint.unserialized_params -> AST.ident List.list -> __ -> Graphs.label |
|---|
| 137 | Types.sig0 -> (__, Graphs.label -> Nat.nat Types.option) Types.prod |
|---|
| 138 | Types.sig0 |
|---|
| 139 | |
|---|
| 140 | val linearise_int_fun : |
|---|
| 141 | Joint.unserialized_params -> AST.ident List.list -> |
|---|
| 142 | Joint.joint_closed_internal_function -> |
|---|
| 143 | (Joint.joint_closed_internal_function, Graphs.label -> Nat.nat |
|---|
| 144 | Types.option) Types.prod Types.sig0 |
|---|
| 145 | |
|---|
| 146 | val linearise : |
|---|
| 147 | Joint.unserialized_params -> (Joint.joint_function, Nat.nat) AST.program -> |
|---|
| 148 | (Joint.joint_function, Nat.nat) AST.program |
|---|
| 149 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
