Mercurial > cgi-bin > hgwebdir.cgi > VMS > VMS_Implementations > VMS_impls > VMS__MC_shared_impl
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
