Subversion Repositories SvarDOS

Rev

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

Rev 453 Rev 455
Line 37... Line 37...
37 
  unsigned short far *rmodenv_ptr = MK_FP(rmodseg, RMOD_OFFSET_ENVSEG);
 37 
  unsigned short far *rmodenv_ptr = MK_FP(rmodseg, RMOD_OFFSET_ENVSEG);
38 
  unsigned short rmodenv = *rmodenv_ptr;
 38 
  unsigned short rmodenv = *rmodenv_ptr;
39 
 
 39 
 
40 
  /* detect "I am the origin shell" situations */
 40 
  /* detect "I am the origin shell" situations */
41 
  if (rmod->flags & FLAG_PERMANENT) return; /* COMMAND.COM /P */
 41 
  if (rmod->flags & FLAG_PERMANENT) return; /* COMMAND.COM /P */
42 
  if (rmod->origparent == 0xffff) return; /* original parent set to 0xffff (DOS-C / FreeDOS) */
 42 
  if ((rmod->origparent >> 16) == 0xffff) return; /* original parent seg set to 0xffff (DOS-C / FreeDOS) */
43 
  if (rmod->origenvseg == 0) return; /* no original environment (MSDOS 5/6) */
 43 
  if (rmod->origenvseg == 0) return; /* no original environment (MSDOS 5/6) */
44 
 
 44 
 
45 
  /* set my parent back to original value */
 45 
  /* set my parent back to original value */
46 
  *myparent = rmod->origparent;
 46 
  *myparent = rmod->origparent;
47 
 
 47