Mercurial > cgi-bin > hgwebdir.cgi > VMS > VMS_Implementations > VMS_impls > VMS__MC_shared_impl

comparison VMS.c @ 64:5cb919ac890f

find changesets by author, revision, files, or words in the commit message
added "VMS__give_semantic_env_for"
author Me
date Sat, 13 Nov 2010 14:39:40 -0800
parents dd3e60aeae26
children 13b22ffb8a2f
comparison
equal deleted inserted replaced
30:9d09d6178f9c 32:1a2dee92f2df
327 327
328 return create_procr_helper( newPr, fnPtr, initialData, stackLocs ); 328 return create_procr_helper( newPr, fnPtr, initialData, stackLocs );
329 } 329 }
330 330
331 331
332 /*Anticipating multi-tasking
333 */
334 void *
335 VMS__give_sem_env_for( VirtProcr *animPr )
336 {
337 return _VMSMasterEnv->semanticEnv;
338 }
339 //===========================================================================
332 /*there is a label inside this function -- save the addr of this label in 340 /*there is a label inside this function -- save the addr of this label in
333 * the callingPr struc, as the pick-up point from which to start the next 341 * the callingPr struc, as the pick-up point from which to start the next
334 * work-unit for that procr. If turns out have to save registers, then 342 * work-unit for that procr. If turns out have to save registers, then
335 * save them in the procr struc too. Then do assembly jump to the CoreLoop's 343 * save them in the procr struc too. Then do assembly jump to the CoreLoop's
336 * "done with work-unit" label. The procr struc is in the request in the 344 * "done with work-unit" label. The procr struc is in the request in the
780 printf(msgStr); 788 printf(msgStr);
781 fflush(stdin); 789 fflush(stdin);
782 exit(1); 790 exit(1);
783 } 791 }
784 792
785
786