Subversion Repositories SvarDOS

Rev

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

Rev 960 Rev 963
Line 441... Line 441...
441
      rmod->flags &= ~FLAG_ECHO_BEFORE_BAT;
441
      rmod->flags &= ~FLAG_ECHO_BEFORE_BAT;
442
      if (rmod->flags & FLAG_ECHOFLAG) rmod->flags |= FLAG_ECHO_BEFORE_BAT;
442
      if (rmod->flags & FLAG_ECHOFLAG) rmod->flags |= FLAG_ECHO_BEFORE_BAT;
443
    }
443
    }
444
 
444
 
445
    /* if bat is not called via a CALL, then free the bat-context linked list */
445
    /* if bat is not called via a CALL, then free the bat-context linked list */
446
    if ((flags & CALL_FLAG) == 0) {
446
    if ((flags & CALL_FLAG) == 0) rmod_free_bat_llist(rmod);
447
      while (rmod->bat != NULL) {
-
 
448
        struct batctx far *victim = rmod->bat;
-
 
449
        rmod->bat = rmod->bat->parent;
-
 
450
        rmod_ffree(victim);
-
 
451
      }
-
 
452
    }
447
 
453
    /* allocate a new bat context */
448
    /* allocate a new bat context */
454
    newbat = rmod_fcalloc(sizeof(struct batctx), rmod->rmodseg, "SVBATCTX");
449
    newbat = rmod_fcalloc(sizeof(struct batctx), rmod->rmodseg, "SVBATCTX");
455
    if (newbat == NULL) {
450
    if (newbat == NULL) {
456
      nls_outputnl_doserr(8); /* insufficient memory */
451
      nls_outputnl_doserr(8); /* insufficient memory */
457
      return;
452
      return;