changeset 64:5cb919ac890f

added "VMS__give_semantic_env_for"
author Me
date Sat, 13 Nov 2010 14:39:40 -0800
parents dd3e60aeae26
children 13b22ffb8a2f
files VMS.c VMS.h
diffstat 2 files changed, 13 insertions(+), 4 deletions(-) [+]
line diff
     1.1 --- a/VMS.c	Fri Nov 12 07:36:01 2010 -0800
     1.2 +++ b/VMS.c	Sat Nov 13 14:39:40 2010 -0800
     1.3 @@ -329,6 +329,14 @@
     1.4   }
     1.5  
     1.6  
     1.7 +/*Anticipating multi-tasking
     1.8 + */
     1.9 +void *
    1.10 +VMS__give_sem_env_for( VirtProcr *animPr )
    1.11 + {
    1.12 +   return _VMSMasterEnv->semanticEnv;
    1.13 + }
    1.14 +//===========================================================================
    1.15  /*there is a label inside this function -- save the addr of this label in
    1.16   * the callingPr struc, as the pick-up point from which to start the next
    1.17   * work-unit for that procr.  If turns out have to save registers, then
    1.18 @@ -782,5 +790,3 @@
    1.19     exit(1);
    1.20   }
    1.21  
    1.22 -
    1.23 -
     2.1 --- a/VMS.h	Fri Nov 12 07:36:01 2010 -0800
     2.2 +++ b/VMS.h	Sat Nov 13 14:39:40 2010 -0800
     2.3 @@ -96,7 +96,7 @@
     2.4  
     2.5  #define writeVMSQ     writePrivQ
     2.6  #define readVMSQ      readPrivQ
     2.7 -#define makeVMSQ      makePrivQ
     2.8 +#define makeVMSQ      makeVMSPrivQ
     2.9  #define numInVMSQ     numInPrivQ
    2.10  #define VMSQueueStruc PrivQueueStruc
    2.11  
    2.12 @@ -165,7 +165,7 @@
    2.13  //SchedSlot
    2.14  
    2.15  /*WARNING: re-arranging this data structure could cause VP switching
    2.16 - *         assembly code to fail -- hard-codes offsets of fields
    2.17 + *         assembly code to fail -- hard-codes offsets of fields
    2.18   */
    2.19  struct _VirtProcr
    2.20   { int         procrID;  //for debugging -- count up each time create
    2.21 @@ -324,6 +324,9 @@
    2.22  void
    2.23  VMS__cleanup_at_end_of_shutdown();
    2.24  
    2.25 +void *
    2.26 +VMS__give_sem_env_for( VirtProcr *animPr );
    2.27 +
    2.28  
    2.29  //==============  Request Related  ===============
    2.30