3478 !

  3479 

  3480 timeoutList

  3481     "return (a copy of) the list of current timeouts; only for debugging (i.e. for the monitor).

  3482      The info is a pair where the first element is the current time (in OS-milliseconds)

  3483      and the second element is a collection of timeouts which are valid at this time."

  3484 

  3485     |info wasBlocked now|

  3486 

  3487     wasBlocked := OperatingSystem blockInterrupts.

  3488     now := OperatingSystem getMillisecondTime.

  3489     info := OrderedCollection new.

  3490     1 to:timeoutActionArray size do:[:i |

  3491         |t|

  3492 

  3493         (t := timeoutArray at:i) notNil ifTrue:[

  3494             info add:(OrderedDictionary new

  3495                 at:'time' put:t;

  3496                 at:'action' put:(timeoutActionArray at:i);

  3497                 at:'sema' put:(timeoutSemaphoreArray at:i);

  3498                 at:'process' put:(timeoutProcessArray at:i);

  3499                 yourself)

  3500         ]

  3501     ].

  3502     wasBlocked ifFalse:[OperatingSystem unblockInterrupts].

  3503     ^ { now . info }

  3504 

  3505     "

  3506      Processor timeoutList

  3507     "