Subversion Repositories SvarDOS

Compare Revisions

Ignore whitespace Rev 438 → Rev 439

/svarcom/trunk/rmodinit.c
195,9 → 195,9
/* update rmod's pointer to comspec */
void rmod_updatecomspecptr(unsigned short rmod_seg, unsigned short env_seg) {
unsigned short far *comspecptr = MK_FP(rmod_seg, RMOD_OFFSET_COMSPECPTR);
char far *comspecfp = env_lookup(env_seg, "COMSPEC");
char far *comspecfp = env_lookup_val(env_seg, "COMSPEC");
if (comspecfp != NULL) {
*comspecptr = FP_OFF(comspecfp) + 8; /* +8 to skip the "COMSPEC=" prefix */
*comspecptr = FP_OFF(comspecfp);
} else {
*comspecptr = 0;
}