freeMemVariants count p = do
      freeVariants count p
      freeMemory p

{-
Marshall BSTR values. @allocBSTR@ is called @primAllocBSTR@
since it doesn't take care of freeing the string. (If we
just had true foreign objects: @mkPointer xbstr freeBSTR@.)
-}
freeMemVariants count p = do
      freeVariants count p
      freeMemory p

{-
Marshall BSTR values. @allocBSTR@ is called @primAllocBSTR@
since it doesn't take care of freeing the string. (If we
just had true foreign objects: @mkPointer xbstr freeBSTR@.)
-}
freeMemVariants count p = do
      freeVariants count p
      freeMemory p

{-
Marshall BSTR values. @allocBSTR@ is called @primAllocBSTR@
since it doesn't take care of freeing the string. (If we
just had true foreign objects: @mkPointer xbstr freeBSTR@.)
-}