Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/runtime/kernel/ml-state.c
ViewVC logotype

Diff of /sml/trunk/src/runtime/kernel/ml-state.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 568, Tue Mar 7 03:59:09 2000 UTC revision 569, Tue Mar 7 04:01:07 2000 UTC
# Line 30  Line 30 
30   */   */
31  ml_state_t *AllocMLState (bool_t isBoot, heap_params_t *heapParams)  ml_state_t *AllocMLState (bool_t isBoot, heap_params_t *heapParams)
32  {  {
33      ml_state_t  *msp;      ml_state_t  *msp = NIL(ml_state_t *);
34    #ifdef MP_SUPPORT
35      int         i;      int         i;
36    #endif
37    
38  #ifdef MP_SUPPORT  #ifdef MP_SUPPORT
39    
40      for (i = 0; i < MAX_NUM_PROCS; i++) {      for (i = 0; i < MAX_NUM_PROCS; i++) {
41          if (((VProc[i] = NEW_OBJ(vproc_state_t)) == NIL(vproc_state_t *))          if (((VProc[i] = NEW_OBJ(vproc_state_t)) == NIL(vproc_state_t *))
42          ||  ((msp = NEW_OBJ(ml_state_t)) == NIL(ml_state_t *))) {          ||  ((msp = NEW_OBJ(ml_state_t)) == NIL(ml_state_t *))) {
# Line 140  Line 143 
143   */   */
144  void InitMLState (ml_state_t *msp)  void InitMLState (ml_state_t *msp)
145  {  {
     int         i;  
   
146      msp->ml_storePtr            = ML_unit;      msp->ml_storePtr            = ML_unit;
147  #ifdef SOFT_POLL  #ifdef SOFT_POLL
148      msp->ml_pollPending         = FALSE;      msp->ml_pollPending         = FALSE;
# Line 161  Line 162 
162      va_list         ap;      va_list         ap;
163      int             n, i;      int             n, i;
164      ml_val_t        *vp;      ml_val_t        *vp;
     extern ml_val_t return_a[];  
165    
166      va_start (ap, msp);      va_start (ap, msp);
167      for (n = 0; (vp = va_arg(ap, ml_val_t *)) != NIL(ml_val_t *);  n++)      for (n = 0; (vp = va_arg(ap, ml_val_t *)) != NIL(ml_val_t *);  n++)

Legend:
Removed from v.568  
changed lines
  Added in v.569

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0