Changeset 4460 for trunk/compiler

Timestamp:

08/31/08 05:41:10 (4 months ago)

Author:

pmoura

Message:

Corrected a bug in the implementation of the threaded_once/1-2 built-in multi-threading predicates (use of detached threads could make the methods fail despite the success of the thread goals).

Files:

• trunk/compiler/logtalk.pl (modified) (1 diff)

trunk/compiler/logtalk.pl

@@ -13265 +13265 @@
         thread_get_message(Queue, '$lgt_thread_id'(Type, Goal, This, Self, Tag, Id)),
         (   Type == once ->
-            '$lgt_mt_det_reply'(Queue, Goal, This, Self, Tag, Id),
-            thread_join(Id, _)
+            call_cleanup(
+                '$lgt_mt_det_reply'(Queue, Goal, This, Self, Tag, Id),
+                thread_join(Id, _))
         ;   call_cleanup(
                 '$lgt_mt_non_det_reply'(Queue, Goal, This, Self, Tag, Id),