Fix OpenVMS build breakage
b=71990 r=danm sr=blizzard a=leaf git-svn-id: svn://10.0.0.236/trunk@89717 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
@@ -99,10 +99,12 @@ struct PLEventQueue {
|
||||
EventQueueType type;
|
||||
PRPackedBool processingEvents;
|
||||
PRPackedBool notified;
|
||||
#if defined(XP_UNIX)
|
||||
#if defined(VMS)
|
||||
int efn;
|
||||
#elif defined(XP_UNIX)
|
||||
#else
|
||||
PRInt32 eventPipe[2];
|
||||
#endif
|
||||
PLGetEventIDFunc idFunc;
|
||||
void *idFuncClosure;
|
||||
#elif defined(_WIN32) || defined(WIN16) || defined(XP_OS2)
|
||||
@@ -722,15 +724,15 @@ _pl_SetupNativeNotifier(PLEventQueue* self)
|
||||
#endif
|
||||
|
||||
#if defined(VMS)
|
||||
{
|
||||
unsigned int status;
|
||||
status = LIB$GET_EF(&self->efn);
|
||||
if (!$VMS_STATUS_SUCCESS(status))
|
||||
return PR_FAILURE;
|
||||
PR_LOG(event_lm, PR_LOG_DEBUG,
|
||||
("$$$ Allocated event flag %d", self->efn));
|
||||
return PR_SUCCESS;
|
||||
}
|
||||
unsigned int status;
|
||||
self->idFunc = 0;
|
||||
self->idFuncClosure = 0;
|
||||
status = LIB$GET_EF(&self->efn);
|
||||
if (!$VMS_STATUS_SUCCESS(status))
|
||||
return PR_FAILURE;
|
||||
PR_LOG(event_lm, PR_LOG_DEBUG,
|
||||
("$$$ Allocated event flag %d", self->efn));
|
||||
return PR_SUCCESS;
|
||||
#elif defined(XP_UNIX)
|
||||
int err;
|
||||
int flags;
|
||||
|
||||
Reference in New Issue
Block a user