1868 |
|
|
1869 |
feature {TYPE_AS, AST_TYPE_A_GENERATOR, AST_FEATURE_CHECKER_GENERATOR} -- Actual class type |
feature {TYPE_AS, AST_TYPE_A_GENERATOR, AST_FEATURE_CHECKER_GENERATOR} -- Actual class type |
1870 |
|
|
1871 |
partial_actual_type (gen: ARRAY [TYPE_A]; is_exp, is_sep: BOOLEAN): CL_TYPE_A is |
partial_actual_type (gen: ARRAY [TYPE_A]; is_exp, is_sep, is_mono: BOOLEAN): CL_TYPE_A is |
1872 |
-- Actual type of `current depending on the context in which it is declared |
-- Actual type of `current depending on the context in which it is declared |
1873 |
-- in CLASS_TYPE_AS. That is to say, it could have generics `gen' but not |
-- in CLASS_TYPE_AS. That is to say, it could have generics `gen' but not |
1874 |
-- be a generic class. It simplifies creation of `CL_TYPE_A' instances in |
-- be a generic class. It simplifies creation of `CL_TYPE_A' instances in |
1890 |
end |
end |
1891 |
if is_expanded then |
if is_expanded then |
1892 |
Result.set_expanded_class_mark |
Result.set_expanded_class_mark |
1893 |
|
elseif is_mono then |
1894 |
|
Result.set_monomorph_mark |
1895 |
end |
end |
1896 |
ensure |
ensure |
1897 |
actual_type_not_void: Result /= Void |
actual_type_not_void: Result /= Void |