<commit_before>/*
 * math stuff
 */

/*
 * return true if the Numval has a negative sign
 */
#if DOUBLE_SIZE == 2 * INT_SIZE
int
Parrot_signbit(double x)
{
   union {
       double d;
       int i[2];
   } u;
   u.d = x;<commit_msg>Export Parrot_signbit() in order to give the dynamic PerlNum a chance to work on Win32.<commit_after>/*
 * math stuff
 */

/*
 * return true if the Numval has a negative sign.
 * This is mostly for handling the -0.0 case.
 *
 * Parrot_signbit is exported because PerlNum.set_number_native() uses it.
 * XXX: This is propably not a good reason.
 */
#if DOUBLE_SIZE == 2 * INT_SIZE
PARROT_API extern int
Parrot_signbit(double x)
{
   union {
       double d;
       int i[2];
   } u;
   u.d = x;
{'fraction_non_alphanumeric': 0.10620689655172413, 'fraction_numerical': 0.011034482758620689, 'mean_word_length': 2.704081632653061, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6626511', 'n_tokens_mistral': 262, 'n_tokens_neox': 254, 'n_words': 92}