conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* bignum->string now uses bytevectors as intermediate rep.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-18 22:08:45 -04:00
parent 691a42fe4e
commit 862871a787
4 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
bin/ikarus
View File

Binary file not shown.

14
bin/ikarus-numerics.c
View File

@ -1222,12 +1222,8 @@ ikrt_bnfxdivrem(ikp x, ikp y, ikpcb* pcb){
} }
ikp ikp
ikrt_bntostring(ikp x, ikpcb* pcb){ ikrt_bignum_to_bytevector(ikp x, ikpcb* pcb){
/* FIXME: avoid calling malloc, instead, use the heap pointer itself /* FIXME: avoid calling malloc, instead, use the heap pointer itself
* as a buffer to hold the temporary data after ensuring that it has enough * as a buffer to hold the temporary data after ensuring that it has enough
* space */ * space */
@ -1258,9 +1254,9 @@ ikrt_bntostring(ikp x, ikpcb* pcb){
string_start++; string_start++;
bytes--; bytes--;
} }
ikp str = ik_alloc(pcb, align(bytes + disp_string_data + (sign_bit?1:0))); ikp bv = ik_alloc(pcb, align(bytes + disp_bytevector_data + (sign_bit?1:0)));
ref(str, 0) = fix(bytes + (sign_bit?1:0)); ref(bv, 0) = fix(bytes + (sign_bit?1:0));
ikp dest = str + disp_string_data; ikp dest = bv + disp_bytevector_data;
if(sign_bit){ if(sign_bit){
*dest = '-'; *dest = '-';
dest++; dest++;
@ -1274,6 +1270,6 @@ ikrt_bntostring(ikp x, ikpcb* pcb){
dest[bytes] = 0; dest[bytes] = 0;
} }
free(mem); free(mem);
return str + string_tag; return bv + bytevector_tag;
} }

BIN
src/ikarus.boot
View File

Binary file not shown.

7
src/ikarus.numerics.ss
View File

@ -376,11 +376,16 @@
[(bignum? x) (even-bignum? x)] [(bignum? x) (even-bignum? x)]
[else (error 'odd? "~s is not an integer" x)]))) [else (error 'odd? "~s is not an integer" x)])))
(define bignum->string
(lambda (x)
(utf8-bytevector->string
(foreign-call "ikrt_bignum_to_bytevector" x))))
(define number->string (define number->string
(lambda (x) (lambda (x)
(cond (cond
[(fixnum? x) (fixnum->string x)] [(fixnum? x) (fixnum->string x)]
[(bignum? x) (foreign-call "ikrt_bntostring" x)] [(bignum? x) (bignum->string x)]
[(flonum? x) (flonum->string x)] [(flonum? x) (flonum->string x)]
[else (error 'number->string "~s is not a number" x)]))) [else (error 'number->string "~s is not a number" x)])))