mirror of
https://github.com/simh/simh.git
synced 2026-01-29 13:11:26 +00:00
All: Convert from C runtime library perror() to sim_perror so that all messages will arrive in the same place(s).
This commit is contained in:
@@ -793,7 +793,7 @@ l = fxread (buf, sizeof (uint16), DP_TRKLEN, uptr->fileref);
|
||||
for ( ; l < DP_TRKLEN; l++)
|
||||
buf[l] = 0;
|
||||
if (ferror (uptr->fileref)) {
|
||||
perror ("DP I/O error");
|
||||
sim_perror ("DP I/O error");
|
||||
clearerr (uptr->fileref);
|
||||
dp_done (1, STA_UNSER);
|
||||
return SCPE_IOERR;
|
||||
@@ -810,7 +810,7 @@ uint32 da = ((c * dp_tab[dp_ctype].surf) + h) * DP_TRKLEN;
|
||||
fseek (uptr->fileref, da * sizeof (uint16), SEEK_SET);
|
||||
fxwrite (buf, sizeof (uint16), DP_TRKLEN, uptr->fileref);
|
||||
if (ferror (uptr->fileref)) {
|
||||
perror ("DP I/O error");
|
||||
sim_perror ("DP I/O error");
|
||||
clearerr (uptr->fileref);
|
||||
dp_done (1, STA_UNSER);
|
||||
return SCPE_IOERR;
|
||||
|
||||
@@ -398,7 +398,7 @@ else {
|
||||
sim_printf ("PTR end of file\n");
|
||||
else return SCPE_OK;
|
||||
}
|
||||
else perror ("PTR I/O error");
|
||||
else sim_perror ("PTR I/O error");
|
||||
clearerr (uptr->fileref);
|
||||
return SCPE_IOERR;
|
||||
}
|
||||
@@ -559,7 +559,7 @@ if (uptr->flags & UNIT_ASC) { /* ASCII? */
|
||||
}
|
||||
else c = uptr->buf & 0377; /* no, binary */
|
||||
if (putc (c, uptr->fileref) == EOF) { /* output byte */
|
||||
perror ("PTP I/O error");
|
||||
sim_perror ("PTP I/O error");
|
||||
clearerr (uptr->fileref);
|
||||
return SCPE_IOERR;
|
||||
}
|
||||
@@ -689,7 +689,7 @@ else if ((ruptr->flags & UNIT_ATT) && /* TTR attached */
|
||||
sim_printf ("TTR end of file\n");
|
||||
else return SCPE_OK;
|
||||
}
|
||||
else perror ("TTR I/O error");
|
||||
else sim_perror ("TTR I/O error");
|
||||
clearerr (ruptr->fileref);
|
||||
return SCPE_IOERR;
|
||||
}
|
||||
@@ -799,7 +799,7 @@ if ((puptr->flags & UNIT_ATT) && /* TTP attached */
|
||||
}
|
||||
else p = c; /* untouched */
|
||||
if (putc (p, puptr->fileref) == EOF) { /* output byte */
|
||||
perror ("TTP I/O error");
|
||||
sim_perror ("TTP I/O error");
|
||||
clearerr (puptr->fileref);
|
||||
return SCPE_IOERR;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user