1.1 --- a/templates/progops.c Thu Nov 04 23:44:29 2021 +0100
1.2 +++ b/templates/progops.c Thu Nov 04 23:57:33 2021 +0100
1.3 @@ -338,3 +338,24 @@
1.4 value == (__ref) &__predefined___builtins___boolean_False ? 0 :
1.5 __VALUE(__fn___builtins___boolean_bool(__NULL, attr)) == (__ref) &__predefined___builtins___boolean_True;
1.6 }
1.7 +
1.8 +/* Conversion of trailing data to an integer. */
1.9 +
1.10 +__int __TOINT(__attr attr)
1.11 +{
1.12 + return __get_trailing_data(attr, __builtins___int_int);
1.13 +}
1.14 +
1.15 +/* Instance test functions, to be replaced by tagged pointer usage. */
1.16 +
1.17 +int __INTEGER(__attr attr)
1.18 +{
1.19 + __ref value = __VALUE(attr);
1.20 + return __get_class(value) == &__builtins___int_int;
1.21 +}
1.22 +
1.23 +int __FLOAT(__attr attr)
1.24 +{
1.25 + __ref value = __VALUE(attr);
1.26 + return __get_class(value) == &__builtins___float_float;
1.27 +}