require array_length to be > 0
C does not have 0-sized types
This commit is contained in:
@@ -132,6 +132,7 @@ deallocate(Allocator, Type, Ptr) :-
|
|||||||
:- dynamic(is_array_type_defined/1).
|
:- dynamic(is_array_type_defined/1).
|
||||||
|
|
||||||
array_type(ElemType, Len, ArrayType) :-
|
array_type(ElemType, Len, ArrayType) :-
|
||||||
|
(Len =< 0 -> domain_error(greater_than_zero, Len, array_type/3); true),
|
||||||
phrase(format_("$[~a;~d]", [ElemType, Len]), ArrayTypeName),
|
phrase(format_("$[~a;~d]", [ElemType, Len]), ArrayTypeName),
|
||||||
atom_chars(ArrayType, ArrayTypeName),
|
atom_chars(ArrayType, ArrayTypeName),
|
||||||
(is_array_type_defined(ArrayType) -> true
|
(is_array_type_defined(ArrayType) -> true
|
||||||
|
|||||||
Reference in New Issue
Block a user