[decnum-dynpmcs] r152 committed - Taking a closer look at how parrot handles % on floats, it looks like ...

[codesite...@google.com]

Revision: 152
Author: arbelo
Date: Sat Aug 8 20:39:49 2009
Log: Taking a closer look at how parrot handles % on floats, it looks like
decNumberRemainder was the right choice after all.

http://code.google.com/p/decnum-dynpmcs/source/detail?r=152

Modified:
/trunk/src/pmc/decnum.pmc

=======================================
--- /trunk/src/pmc/decnum.pmc Fri Aug 7 11:35:23 2009
+++ /trunk/src/pmc/decnum.pmc Sat Aug 8 20:39:49 2009
@@ -788,10 +788,10 @@
dest = pmc_new(INTERP, SELF->vtable->base_type);

if (value->vtable->base_type == SELF->vtable->base_type){
- decNumberDivideInteger(PARROT_DECNUM(dest)->number,
- PARROT_DECNUM(SELF)->number,
- PARROT_DECNUM(value)->number,
- ctxt);
+ decNumberRemainder(PARROT_DECNUM(dest)->number,
+ PARROT_DECNUM(SELF)->number,
+ PARROT_DECNUM(value)->number,
+ ctxt);
check_flags_and_throw(INTERP, ctxt,
get_exceptions(PARROT_DECNUM(SELF)->context));
return dest;
}
@@ -820,10 +820,10 @@
decNumber number;

dest = pmc_new(INTERP, SELF->vtable->base_type);
- decNumberRemainderNear(PARROT_DECNUM(dest)->number,
- PARROT_DECNUM(SELF)->number,
- decNumberFromString(&number , cstr, ctxt),
- ctxt);
+ decNumberRemainder(PARROT_DECNUM(dest)->number,
+ PARROT_DECNUM(SELF)->number,
+ decNumberFromString(&number , cstr, ctxt),
+ ctxt);
Parrot_str_free_cstring(cstr);
check_flags_and_throw(INTERP, ctxt,
get_exceptions(PARROT_DECNUM(SELF)->context));

@@ -837,10 +837,10 @@
decNumber number;

dest = pmc_new(INTERP, SELF->vtable->base_type);
- decNumberRemainderNear(PARROT_DECNUM(dest)->number,
- PARROT_DECNUM(SELF)->number,
- decNumberFromString(&number , cstr, ctxt),
- ctxt);
+ decNumberRemainder(PARROT_DECNUM(dest)->number,
+ PARROT_DECNUM(SELF)->number,
+ decNumberFromString(&number , cstr, ctxt),
+ ctxt);
Parrot_str_free_cstring(cstr);
check_flags_and_throw(INTERP, ctxt,
get_exceptions(PARROT_DECNUM(SELF)->context));

@@ -880,10 +880,10 @@
char *cstr = Parrot_str_to_cstring(INTERP, pstr);
decNumber number;

- decNumberRemainderNear(PARROT_DECNUM(SELF)->number,
- PARROT_DECNUM(SELF)->number,
- decNumberFromString(&number , cstr, ctxt),
- ctxt);
+ decNumberRemainder(PARROT_DECNUM(SELF)->number,
+ PARROT_DECNUM(SELF)->number,
+ decNumberFromString(&number , cstr, ctxt),
+ ctxt);
Parrot_str_free_cstring(cstr);
check_flags_and_throw(INTERP, ctxt,
get_exceptions(PARROT_DECNUM(SELF)->context));
}
@@ -894,10 +894,10 @@
char *cstr = Parrot_str_to_cstring(INTERP, pstr);
decNumber number;

- decNumberRemainderNear(PARROT_DECNUM(SELF)->number,
- PARROT_DECNUM(SELF)->number,
- decNumberFromString(&number , cstr, ctxt),
- ctxt);
+ decNumberRemainder(PARROT_DECNUM(SELF)->number,
+ PARROT_DECNUM(SELF)->number,
+ decNumberFromString(&number , cstr, ctxt),
+ ctxt);
Parrot_str_free_cstring(cstr);
check_flags_and_throw(INTERP, ctxt,
get_exceptions(PARROT_DECNUM(SELF)->context));
}