-// Removing this, provided it doesn't cause unwanted side-effects :-P
-#if 0
-//
-// Make `fnum' the Current `curfname'
-// NOTE: This is currently only called from error() in error.c
-//
-void setfnum(WORD fnum)
-{
-#if 0
- // NOTE: fnum is ZERO based, this can cause problems if you're not careful!
- FILEREC * fr = filerec;
-
- DEBUG printf("[setfnum: fnum=%u]\n", fnum);
-
- // Advance to the correct record...
- while (fr != NULL && fnum != 0)
- {
- fr = fr->frec_next;
- fnum--;
- }
-
- if (fr == NULL)
- curfname = "(*top*)";
- else
- curfname = fr->frec_name;
-
- DEBUG printf("[setfnum: curfname=%s]\n", curfname);
-#else
- // Check for absolute top filename (this should never happen)
- if (fnum == -1)
- {
- curfname = "(*top*)";
- return;
- }
-
- FILEREC * fr = filerec;
-
- // Advance to the correct record...
- while (fr != NULL && fnum != 0)
- {
- fr = fr->frec_next;
- fnum--;
- }
-
- // Check for file # record not found (this should never happen either)
- if (fr == NULL)
- {
- curfname = "(*NOT FOUND*)";
- return;
- }
-
- curfname = fr->frec_name;
-#endif
-}
-#else