diff options
author | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-08-19 19:51:02 +0000 |
---|---|---|
committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2005-08-19 19:51:02 +0000 |
commit | be6ee173206a929ad664ff507334ad5add7ad157 (patch) | |
tree | bfc3228af152a38598bc09798c5602d5e5953148 /kernel/cbytegen.ml | |
parent | 66a2d880e14c1635f29cef0ad0113185cba29a18 (diff) |
Sur le conseil de X.Leroy: x=[||] devient Array.length x=0
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7305 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/cbytegen.ml')
-rw-r--r-- | kernel/cbytegen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/cbytegen.ml b/kernel/cbytegen.ml index 40965d2f5..7877fbccb 100644 --- a/kernel/cbytegen.ml +++ b/kernel/cbytegen.ml @@ -453,7 +453,7 @@ and compile_str_cst reloc sc sz cont = let nargs = Array.length args in comp_args compile_str_cst reloc args sz (Kmakeblock(nargs,tag) :: cont) | Bconstruct_app(tag,nparams,arity,args) -> - if args = [||] then code_construct tag nparams arity cont + if Array.length args = 0 then code_construct tag nparams arity cont else comp_app (fun _ _ _ cont -> code_construct tag nparams arity cont) |