cvs commit: fptools/libraries/base/Foreign/Marshal Array.hs

[Simon Marlow]

simonmar    2003/10/21 06:27:14 PDT

  Modified files:
    libraries/base/Foreign/Marshal Array.hs 
  Log:
  Make peekArray0 run in constant stack-space by testing the length of
  the array first, then calling peekArray (which works backwards from
  the end so it can be tail-recursive).
  
  Revision  Changes    Path
  1.13      +3 -7      fptools/libraries/base/Foreign/Marshal/Array.hs