# HG changeset patch
# User Me
# Date 1289687980 28800
# Node ID 5cb919ac890f0147f9d6c8c48f0d2b3bc3ac4b62
# Parent  dd3e60aeae26dc93d7aeb2d763db3df3bbd4db78
added "VMS__give_semantic_env_for"

diff -r dd3e60aeae26 -r 5cb919ac890f VMS.c
--- a/VMS.c	Fri Nov 12 07:36:01 2010 -0800
+++ b/VMS.c	Sat Nov 13 14:39:40 2010 -0800
@@ -329,6 +329,14 @@
  }
 
 
+/*Anticipating multi-tasking
+ */
+void *
+VMS__give_sem_env_for( VirtProcr *animPr )
+ {
+   return _VMSMasterEnv->semanticEnv;
+ }
+//===========================================================================
 /*there is a label inside this function -- save the addr of this label in
  * the callingPr struc, as the pick-up point from which to start the next
  * work-unit for that procr.  If turns out have to save registers, then
@@ -782,5 +790,3 @@
    exit(1);
  }
 
-
-
diff -r dd3e60aeae26 -r 5cb919ac890f VMS.h
--- a/VMS.h	Fri Nov 12 07:36:01 2010 -0800
+++ b/VMS.h	Sat Nov 13 14:39:40 2010 -0800
@@ -96,7 +96,7 @@
 
 #define writeVMSQ     writePrivQ
 #define readVMSQ      readPrivQ
-#define makeVMSQ      makePrivQ
+#define makeVMSQ      makeVMSPrivQ
 #define numInVMSQ     numInPrivQ
 #define VMSQueueStruc PrivQueueStruc
 
@@ -165,7 +165,7 @@
 //SchedSlot
 
 /*WARNING: re-arranging this data structure could cause VP switching
- *         assembly code to fail -- hard-codes offsets of fields
+ *         assembly code to fail -- hard-codes offsets of fields
  */
 struct _VirtProcr
  { int         procrID;  //for debugging -- count up each time create
@@ -324,6 +324,9 @@
 void
 VMS__cleanup_at_end_of_shutdown();
 
+void *
+VMS__give_sem_env_for( VirtProcr *animPr );
+
 
 //==============  Request Related  ===============