VMS/C_Libraries/Queue_impl: PrivateQueue.c comparison

Merge pushPrivQ into VMS_malloc brch

comparison

equal deleted inserted replaced

-:6418b733a2b9
+:16597d9f918b
 }
 //Q is full
 return FALSE;
 }
+/*Treats queue as a stack -- no matter contents, if read done right after
+* a push, then the pushed item is what comes out.
+* Expands the queue size automatically when it's full.
+*/
+void
+pushPrivQ( void * in, PrivQueueStruc* Q )
+{
+void **startOfData = Q->startOfData;
+void **endOfData   = Q->endOfData;
+void **insertPos  = Q->insertPos;
+void **extractPos = Q->extractPos;
+tryAgain:
+//Full? (insert is just below extract when full)
+if( extractPos - insertPos != 1 &&
+!(insertPos == endOfData && extractPos == startOfData))
+{    //insert -- but go backwards, inserting at read position then
+// move read pos backwards
+*(Q->extractPos) = in;
+if( extractPos == startOfData ) //write new pos exactly once, correctly
+{ Q->extractPos = endOfData;   //can't overrun then fix it 'cause
+}                              // other thread might read bad pos
+else
+{ Q->extractPos--;
+}
+return;
+}
+//Q is full
+enlargePrivQ( Q );
+goto tryAgain;
+}
 void
 freePrivQ( PrivQueueStruc *Q )
 {
 VMS__free( Q->startOfData );
 VMS__free( Q );

Mercurial > cgi-bin > hgwebdir.cgi > VMS > C_Libraries > Queue_impl