Fix performance regression for writing Arrays to files

tekverkp · Jun 25, 2013 · efc2c5e · efc2c5e
1 parent 53ea785
commit efc2c5e
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/base/fs.jl b/base/fs.jl
@@ -122,6 +122,14 @@ function write(f::File, c::Uint8)
  write(f,pointer(a),1)
 end
 
+function write{T}(f::File, a::Array{T})
+ if isbits(T)
+ write(f,pointer(a),length(a)*sizeof(eltype(a)))
+ else
+ invoke(write, (IO, Array), f, a)
+ end
+end
+
 function write(f::File, buf::Ptr{Uint8},len::Integer)
  if !f.open
  error("File is not open")