Subversion Repositories SvarDOS

Compare Revisions

Ignore whitespace Rev 1572 → Rev 1573

/sved/trunk/sved.c/sved.c
117,7 → 117,18
parm [es] \
value [ax];
 
unsigned short dosfclose(unsigned short handle);
 
#pragma aux dosfclose = \
"mov ah,0x3e" \
"int 0x21" \
"jc done" \
"xor ax, ax" \
"done:" \
parm [bx] \
value [ax];
 
 
/*****************************************************************************
* functions *
*****************************************************************************/
304,7 → 315,7
l = l->next;
}
 
errflag |= mdr_dos_fclose(fd);
errflag |= dosfclose(fd);
 
/* did it all work? */
if (errflag == 0) {
785,7 → 796,7
 
}
 
mdr_dos_fclose(fd);
dosfclose(fd);
 
SKIPLOADING:
 
795,7 → 806,7
return(err);
 
IOERR:
mdr_dos_fclose(fd);
dosfclose(fd);
return(1);
}