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

* Added ikrt_fl_log and ikrt_fx_log to the vm.

This commit is contained in:
Abdulaziz Ghuloum 2007-06-09 03:08:36 +03:00
parent 6712e9490b
commit 57f4d16ee2
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
bin/ikarus
View File

Binary file not shown.

19
bin/ikarus-flonums.c
View File

@ -80,6 +80,14 @@ ikrt_fl_sqrt(ikp x, ikpcb* pcb){
return r; return r;
} }
ikp
ikrt_fl_log(ikp x, ikpcb* pcb){
ikp r = ik_alloc(pcb, flonum_size) + vector_tag;
ref(r, -vector_tag) = (ikp)flonum_tag;
flonum_data(r) = log(flonum_data(x));
return r;
}
@ -127,6 +135,17 @@ ikrt_fx_atan(ikp x, ikpcb* pcb){
return r; return r;
} }
ikp
ikrt_fx_log(ikp x, ikpcb* pcb){
ikp r = ik_alloc(pcb, flonum_size) + vector_tag;
ref(r, -vector_tag) = (ikp)flonum_tag;
flonum_data(r) = log(unfix(x));
return r;
}
ikp ikp
ikrt_flonum_to_bytevector(ikp x, ikp bv, ikpcb* pcb){ ikrt_flonum_to_bytevector(ikp x, ikp bv, ikpcb* pcb){
if(tagof(x) == vector_tag){ if(tagof(x) == vector_tag){