Subversion Repositories SvarDOS

Rev

Rev 2214 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2214 Rev 2217
Line 143... Line 143...
143 
  p->rmod->forloop = rmod_fcalloc(sizeof(*f), p->rmod->rmodseg, "SVFORCTX");
 143 
  p->rmod->forloop = rmod_fcalloc(sizeof(*f), p->rmod->rmodseg, "SVFORCTX");
144 
  if (p->rmod->forloop == NULL) {
 144 
  if (p->rmod->forloop == NULL) {
145 
    nls_outputnl_doserr(8);
 145 
    nls_outputnl_doserr(8);
146 
    return(CMD_FAIL);
 146 
    return(CMD_FAIL);
147 
  }
 147 
  }
148 
  _fmemcpy(p->rmod->forloop, f, sizeof(*f));
 148 
  memcpy_ltr_far(p->rmod->forloop, f, sizeof(*f));
149 
 
 149 
 
150 
  return(CMD_OK);
 150 
  return(CMD_OK);
151 
 
 151 
 
152 
  INVALID_SYNTAX:
 152 
  INVALID_SYNTAX:
153 
  nls_outputnl(0,1); /* "Invalid syntax" */
 153 
  nls_outputnl(0,1); /* "Invalid syntax" */