Changeset 4571 for trunk/compiler

Timestamp:

11/05/08 15:04:03 (2 months ago)

Author:

pmoura

Message:

Removed support for the deprecated message_queue_create/1 Prolog built-in predicate.

Files:

• trunk/compiler/logtalk.pl (modified) (4 diffs)

trunk/compiler/logtalk.pl

@@ -13463 +13463 @@
 
 '$lgt_init_object_message_queue'(ObjPrefix) :-
-    (   '$lgt_predicate_property'(message_queue_create(_, _), built_in) ->
-        catch(message_queue_create(_, [alias(ObjPrefix)]), _, true)
-    ;   catch(message_queue_create(ObjPrefix), _, true)
-    ).
+    catch(message_queue_create(_, [alias(ObjPrefix)]), _, true).
 
 
@@ -13823 +13820 @@
 
 
+
+% '$lgt_mt_threaded_call_abort'(+list)
+%
+% signal all individual threads to abort; we must use catch/3 as some threads may no longer exist
+
 '$lgt_mt_threaded_call_abort'([]).
 
@@ -13832 +13834 @@
 '$lgt_mt_abort_thread'(Id) :-
     (   thread_peek_message('$lgt_master') ->
+        % master thread; send it a message to terminate its slave threads:
         thread_send_message(Id, '$lgt_result'(_, terminate))
-    ;   throw('$lgt_terminated')
+    ;   % slave(-only) thread:
+        throw('$lgt_terminated')
     ).
 
@@ -13864 +13868 @@
 
 
-% '$lgt_create_mutexes'(list(mutex_identifier))
+% '$lgt_create_mutexes'(+list(mutex_identifier))
 %
 % create entity mutexes (called when loading an entity);