updated hcl_makebigint()

This commit is contained in:
hyung-hwan 2024-04-09 00:43:27 +09:00
parent d578ded2c8
commit 27459c7010

View File

@ -305,9 +305,13 @@ hcl_oop_t hcl_makebigint (hcl_t* hcl, int brand, const hcl_liw_t* ptr, hcl_oow_t
#else #else
# error UNSUPPORTED LIW BIT SIZE # error UNSUPPORTED LIW BIT SIZE
#endif #endif
if (HCL_UNLIKELY(!oop)) return HCL_NULL; if (HCL_UNLIKELY(oop))
{
hcl_oop_class_t _class = (brand == HCL_BRAND_PBIGINT)?
hcl->c_large_positive_integer: hcl->c_large_negative_integer;
HCL_OBJ_SET_FLAGS_BRAND (oop, brand); HCL_OBJ_SET_FLAGS_BRAND (oop, brand);
HCL_OBJ_SET_CLASS (oop, (hcl_oop_t)_class);
}
return oop; return oop;
} }