Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

Diff of /main/branches/4.1/trunk/interpreter/platform/unix/TimeSupport.cpp [r8568] .. [r8569] Maximize Restore

  Switch to unified view

a/main/branches/4.1/trunk/interpreter/platform/unix/TimeSupport.cpp b/main/branches/4.1/trunk/interpreter/platform/unix/TimeSupport.cpp
...
...
101
101
102
RexxMethod2(int, alarm_startTimer,
102
RexxMethod2(int, alarm_startTimer,
103
                     wholenumber_t, numdays,
103
                     wholenumber_t, numdays,
104
                     wholenumber_t, alarmtime)
104
                     wholenumber_t, alarmtime)
105
{
105
{
106
    SysSemaphore sem;                    /* Event-semaphore                   */
106
    SysSemaphore sem(true);              /* Event-semaphore                   */
107
    int  msecInADay = 86400000;          /* number of milliseconds in a day   */
107
    int  msecInADay = 86400000;          /* number of milliseconds in a day   */
108
108
109
    /* set the state variables           */
109
    /* set the state variables           */
110
    context->SetObjectVariable("EVENTSEMHANDLE", context->NewPointer(&sem));
110
    context->SetObjectVariable("EVENTSEMHANDLE", context->NewPointer(&sem));
111
    context->SetObjectVariable("TIMERSTARTED", context->True());
111
    context->SetObjectVariable("TIMERSTARTED", context->True());