Changes between Initial Version and Version 1 of Ticket #3815


Ignore:
Timestamp:
Jan 11, 2010 4:55:05 PM (6 years ago)
Author:
simonmar
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #3815

    • Property Priority changed from normal to high
    • Property Milestone changed from to 6.12.2
  • Ticket #3815 – Description

    initial v1  
    33A simple fix in failWith is to replace:
    44
     5{{{
    56  msg <- peekTString c_msg
    67  -- We ignore failure of freeing c_msg, given we're already failing
    78  _ <- localFree c_msg
     9}}}
    810
    911by:
    1012
     13{{{
    1114  msg <- if c_msg == nullPtr
    1215           then return $ "Error 0x" ++ Numeric.showHex err_code ""
     
    1518                   _ <- localFree c_msg
    1619                   return msg
     20}}}