LLVMDisposableObject.st
changeset 7 a41b88b05f9a
parent 2 53abac7217de
child 12 f98e97fd02ef
--- a/LLVMDisposableObject.st	Sun Jul 12 08:34:51 2015 +0100
+++ b/LLVMDisposableObject.st	Fri Jul 17 12:38:30 2015 +0100
@@ -9,6 +9,7 @@
 	category:'LLVM-Internal'
 !
 
+
 !LLVMDisposableObject methodsFor:'initialization & release'!
 
 dispose
@@ -18,9 +19,13 @@
 !
 
 finalize
-    self dispose
+    self address ~~ 0 ifTrue:[ 
+        self dispose.
+        self setAddress: 0.
+    ].
 
     "Created: / 08-07-2015 / 22:31:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-07-2015 / 12:13:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 initialize
@@ -29,3 +34,10 @@
     "Created: / 08-07-2015 / 22:30:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!LLVMDisposableObject class methodsFor:'documentation'!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !
+