Runtime: fix bin_prot

ocsigen · Jun 12, 2015 · e3be168 · e3be168
1 parent 145078b
commit e3be168
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/runtime/bin_prot.js b/runtime/bin_prot.js
@@ -4,19 +4,21 @@
 //Requires: caml_float_of_bytes, caml_ba_get_1
 function bin_prot_get_float_offset(a,p){
   var t = new Array(8);;
-  for (var i = 0;i < 8;i++) t[i] = caml_ba_get_1(a,p++);
+  for (var i = 0;i < 8;i++) t[7-i] = caml_ba_get_1(a,p++);
   var v = caml_float_of_bytes (t);
   return [254,v];
 }
 
 
 //Provides: bin_prot_blit_buf_float_array_stub
 //Requires: caml_array_set, caml_ba_get_1
+//Requires: caml_int64_of_bytes, caml_int64_float_of_bits 
 function bin_prot_blit_buf_float_array_stub(v_src_pos, v_buf, v_dst_pos, v_arr, v_len){
   var c;
   var t = new Array(8);;
   for(var i = 0; i < v_len; i++){
-    for (var j = 0;j < 8;j++) t[j] = caml_ba_get_1(v_buf,v_src_pos+j+(i*8));
+    for (var j = 0;j < 8;j++) t[7-j] = caml_ba_get_1(v_buf,v_src_pos+j+(i*8));
+    c = caml_int64_float_of_bits (caml_int64_of_bytes (t));
     caml_array_set(v_arr,v_dst_pos+i,c);
   }
   return 0
@@ -33,11 +35,14 @@ function bin_prot_blit_buf_string_stub(v_src_pos, v_buf, v_dst_pos, v_str, v_len
 }
 //Provides: bin_prot_blit_float_array_buf_stub
 //Requires: caml_array_get, caml_ba_set_1
+//Requires: caml_int64_to_bytes, caml_int64_bits_of_float
 function bin_prot_blit_float_array_buf_stub(v_src_pos, v_arr, v_dst_pos, v_buf, v_len){
   var c;
   for(var i = 0; i < v_len; i++){
-    c = caml_array_get(v_arr,v_src_pos+i);
-    for (var j = 0;j < 8;j++) caml_ba_set_1(v_buf,v_dst_pos+j+(i*8));
+    var f = caml_array_get(v_arr,v_src_pos+i);
+    var a = caml_int64_to_bytes(caml_int64_bits_of_float(f));
+    for (var j = 0;j < 8;j++)
+      caml_ba_set_1(v_buf,v_dst_pos+j+(i*8), a[7-j]);
   }
   return 0
 }