Changes between Initial Version and Version 1 of Ticket #3815


Ignore:
Timestamp:
Jan 11, 2010 4:55:05 PM (4 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}}}