diff options
| author | johnvg | 2013-12-13 13:40:27 +0000 |
|---|---|---|
| committer | johnvg | 2013-12-13 13:40:27 +0000 |
| commit | 4bd944183fc14429ddff292cde9fef79a415e0b5 (patch) | |
| tree | 6db6d530d99706df67ed14e5d3db263c03c8999b /frontend/convertDynamics.icl | |
| parent | add type attributes for universally quantified variables generated in the gen... (diff) | |
in derived dynamic types, add uniqueness to algebraic types that are always unique
(the type definition has a * on the left),
add Bool to GTT_Constructor to indicate uniqueness,
generate TCE_UnqType in TypeCode for unique GTT_Constructor's,
this uniqueness property should be propagated, but this is not implemented yet
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2336 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/convertDynamics.icl')
| -rw-r--r-- | frontend/convertDynamics.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/convertDynamics.icl b/frontend/convertDynamics.icl index 26ab7fc..2ce916e 100644 --- a/frontend/convertDynamics.icl +++ b/frontend/convertDynamics.icl @@ -560,7 +560,7 @@ where -> type_code_constructor_expression PD_TC__StrictArray ci PD_UnboxedArrayType -> type_code_constructor_expression PD_TC__UnboxedArray ci - typeConstructor (GTT_Constructor fun_ident) ci + typeConstructor (GTT_Constructor fun_ident _) ci # type_fun = App {app_symb = fun_ident, app_args = [], app_info_ptr = nilPtr} = (App {app_symb = cinp_dynamic_representation.dr_type_code_constructor_symb_ident, app_args = [type_fun], app_info_ptr = nilPtr}, ci) |