change pre-existing savefile name to indicate an error savefile */
| 1134 | #ifndef MICRO |
| 1135 | /* change pre-existing savefile name to indicate an error savefile */ |
| 1136 | void |
| 1137 | set_error_savefile(void) |
| 1138 | { |
| 1139 | #ifdef VMS |
| 1140 | { |
| 1141 | char *semi_colon = strrchr(gs.SAVEF, ';'); |
| 1142 | |
| 1143 | if (semi_colon) |
| 1144 | *semi_colon = '\0'; |
| 1145 | } |
| 1146 | Strcat(gs.SAVEF, ".e;1"); |
| 1147 | #else |
| 1148 | #ifdef MACOS9 |
| 1149 | Strcat(gs.SAVEF, "-e"); |
| 1150 | #else |
| 1151 | Strcat(gs.SAVEF, ".e"); |
| 1152 | #endif |
| 1153 | #endif |
| 1154 | } |
| 1155 | #endif |
| 1156 | |
| 1157 | /* create save file, overwriting one if it already exists */ |
no test coverage detected