home *** CD-ROM | disk | FTP | other *** search
- {
- Semaphores.i
- }
-
- {$I "Include/Ports.i"}
-
- Type
- Semaphore = Record
- sm_MsgPort : MsgPort;
- sm_Bids : Short;
- end;
-
- { this is the structure used to request a signal semaphore }
-
- SemaphoreRequest = record
- sr_Link : MinNode;
- sr_Waiter : Address; { A Task Pointer }
- end;
-
- { this is the actual semaphore itself }
-
- SignalSemaphore = Record
- ss_Link : Node;
- ss_NestCount : Short;
- ss_WaitQueue : MinList;
- ss_MultipleLink : SemaphoreRequest;
- ss_Owner : Address; { TaskPtr }
- ss_QueueCount : Short;
- end;
-