Subversion Repositories SvarDOS

Rev

Rev 421 | Rev 448 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 421 Rev 439
Line 193... Line 193...
193 
 
 193 
 
194 
 
 194 
 
195 
/* update rmod's pointer to comspec */
 195 
/* update rmod's pointer to comspec */
196 
void rmod_updatecomspecptr(unsigned short rmod_seg, unsigned short env_seg) {
 196 
void rmod_updatecomspecptr(unsigned short rmod_seg, unsigned short env_seg) {
197 
  unsigned short far *comspecptr = MK_FP(rmod_seg, RMOD_OFFSET_COMSPECPTR);
 197 
  unsigned short far *comspecptr = MK_FP(rmod_seg, RMOD_OFFSET_COMSPECPTR);
198 
  char far *comspecfp = env_lookup(env_seg, "COMSPEC");
 198 
  char far *comspecfp = env_lookup_val(env_seg, "COMSPEC");
199 
  if (comspecfp != NULL) {
 199 
  if (comspecfp != NULL) {
200 
    *comspecptr = FP_OFF(comspecfp) + 8; /* +8 to skip the "COMSPEC=" prefix */
 200 
    *comspecptr = FP_OFF(comspecfp);
201 
  } else {
 201 
  } else {
202 
    *comspecptr = 0;
 202 
    *comspecptr = 0;
203 
  }
 203 
  }
204 
}
 204 
}