nofreeAllocBSTR :: String -> IO (Ptr String)
nofreeAllocBSTR s       = stackString s $ \ _ pstr -> do
                            ptr <- nofreeBstrFromString (castPtr pstr)
                            return ptr
--                          makePointer finalFreeBSTR ptr
nofreeAllocBSTR :: String -> IO (Ptr String)
nofreeAllocBSTR s       = stackString s $ \ _ pstr -> do
                            ptr <- nofreeBstrFromString (castPtr pstr)
                            return ptr
--                          makePointer finalFreeBSTR ptr
nofreeAllocBSTR s       = stackString s $ \ _ pstr -> do
                            ptr <- nofreeBstrFromString (castPtr pstr)
                            return ptr
--                          makePointer finalFreeBSTR ptr