Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Rectification du tag des tableaux de flottants. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@267 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1995-09-13 12:27:41 +00:00
parent 79b047e641
commit 264fa25adf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
asmcomp/cmmgen.ml
View File

@ -40,6 +40,7 @@ let bind name arg fn =
255: finalized *)
let float_tag = Cconst_int 253
let floatarray_tag = Cconst_int 254
let block_header tag sz = (sz lsl 10) + tag
let closure_header sz = block_header 250 sz
@ -209,7 +210,7 @@ let wordsize_shift = 9
let numfloat_shift = 9 + log2_size_float - log2_size_addr
let is_addr_array hdr =
Cop(Ccmpi Cne, [Cop(Cand, [hdr; Cconst_int 255]); float_tag])
Cop(Ccmpi Cne, [Cop(Cand, [hdr; Cconst_int 255]); floatarray_tag])
let addr_array_length hdr = Cop(Clsr, [hdr; Cconst_int wordsize_shift])
let float_array_length hdr = Cop(Clsr, [hdr; Cconst_int numfloat_shift])