I assume you are right.<br>The weirdest thing here is that getY() returns the Y value of the destructed object while getX() returns always 0.<br><br><br><div class="gmail_quote">2011/2/26 Miguel Mitrofanov <span dir="ltr"><<a href="mailto:miguelimo38@yandex.ru">miguelimo38@yandex.ru</a>></span><br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">Well, this code in C++ would probably work too:<br>
<br>
Klass *k = new Klass(4,5);<br>
delete k;<br>
std::cout << k->getY() << std::endl;<br>
<br>
though smart compiler would probably issue a warning. See, when you delete something, C++ doesn't automagically mark your pointer as "invalid"; in fact, it preserves all the data in your deleted class. If you didn't provide a destructor, then the only outcome of "delete" would be that the same memory can be assigned to another object by "new" operator, but it doesn't get cleared or invalidated in any way.<br>
<br>
Seems to me, Haskell works in the same way.<br>
<div><div></div><div class="h5"><br>
On 26 Feb 2011, at 13:59, Yves Parès wrote:<br>
<br>
> Hello,<br>
> I'm trying to use a C++ class in Haskell through C exports.<br>
> It works all very well, except that when I call the function that deletes the object, it is still valid, I can still call methods on it.<br>
><br>
> Here is my Haskell code:<br>
><br>
> {-# LANGUAGE ForeignFunctionInterface #-}<br>
><br>
> import Foreign<br>
> import Foreign.C.Types<br>
><br>
> newtype PKlass = PKlass (Ptr PKlass)<br>
><br>
> foreign import ccall unsafe "Klass_Create"<br>
> kCreate :: CInt -> CInt -> IO PKlass<br>
><br>
> foreign import ccall unsafe "Klass_Destroy"<br>
> kDestroy :: PKlass -> IO ()<br>
><br>
> foreign import ccall unsafe "Klass_GetX"<br>
> kGetX :: PKlass -> IO CInt<br>
> foreign import ccall unsafe "Klass_GetY"<br>
> kGetY :: PKlass -> IO CInt<br>
><br>
> foreign import ccall unsafe "Klass_AddKlass"<br>
> kAdd :: PKlass -> PKlass -> IO PKlass<br>
><br>
><br>
> main = do<br>
> k <- kCreate 4 5<br>
> kDestroy k<br>
> kGetY k >>= print -- This shouldn't work<br>
> k' <- kCreate 2 8<br>
> k'' <- k `kAdd` k'<br>
> kDestroy k''<br>
> kGetY k'' >>= print -- This neither<br>
><br>
><br>
> So it is very basic, and I can't understand why the supposedly destroyed objects are still here.<br>
> Enclosed is all the source code (C++ class, C exportation and the Haskell main hereabove).<br>
><br>
> I compile it this way:<br>
> ghc --make main.hs *.cpp -lstdc++<br>
</div></div>> <test.zip>_______________________________________________<br>
> Haskell-Cafe mailing list<br>
> <a href="mailto:Haskell-Cafe@haskell.org">Haskell-Cafe@haskell.org</a><br>
> <a href="http://www.haskell.org/mailman/listinfo/haskell-cafe" target="_blank">http://www.haskell.org/mailman/listinfo/haskell-cafe</a><br>
<br>
</blockquote></div><br>