Compiler suggested cleanup

This commit is contained in:
Mark Pizzolato 2013-05-23 11:27:53 -07:00
parent b755a71a60
commit 6401a371ba
4 changed files with 12 additions and 11 deletions

View file

@ -133,7 +133,7 @@ const char cdr_to_num[128] = {
/* Numeric (flag + digit) to card punch (ASCII) */ /* Numeric (flag + digit) to card punch (ASCII) */
const char num_to_cdp[32] = { const int8 num_to_cdp[32] = {
'0', '1', '2', '3', '4', '5', '6', '7', /* 0 */ '0', '1', '2', '3', '4', '5', '6', '7', /* 0 */
'8', '9', '|', ',', ' ', '"', ' ', '"', '8', '9', '|', ',', ' ', '"', ' ', '"',
']', 'J', 'K', 'L', 'M', 'N', 'O', 'P', /* F + 0 */ ']', 'J', 'K', 'L', 'M', 'N', 'O', 'P', /* F + 0 */
@ -149,7 +149,7 @@ const char num_to_cdp[32] = {
12-7-8 (}) reads as 5F 12-7-8 (}) reads as 5F
*/ */
const char cdr_to_alp[128] = { const int8 cdr_to_alp[128] = {
0x00, -1, -1, -1, -1, -1, -1, -1, /* 00 */ 0x00, -1, -1, -1, -1, -1, -1, -1, /* 00 */
-1, 0x00, 0x00, -1, -1, 0x00, -1, -1, -1, 0x00, 0x00, -1, -1, 0x00, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, /* 10 */ -1, -1, -1, -1, -1, -1, -1, -1, /* 10 */
@ -186,7 +186,7 @@ const char cdr_to_alp[128] = {
12-5-8 ([), or 12-6-8 (<) 12-5-8 ([), or 12-6-8 (<)
*/ */
const char alp_to_cdp[256] = { const int8 alp_to_cdp[256] = {
' ', -1, '?', '.', ')', -1, -1, '}', /* 00 */ ' ', -1, '?', '.', ')', -1, -1, '}', /* 00 */
-1, -1, '\'', -1, -1, -1, -1, '"', -1, -1, '\'', -1, -1, -1, -1, '"',
'+', -1, '!', '$', '*', ']', -1, -1, /* 10 */ '+', -1, '!', '$', '*', ']', -1, -1, /* 10 */

View file

@ -39,7 +39,7 @@ extern DEVICE dp_dev;
extern UNIT cpu_unit; extern UNIT cpu_unit;
extern REG cpu_reg[]; extern REG cpu_reg[];
extern uint8 M[MAXMEMSIZE]; extern uint8 M[MAXMEMSIZE];
extern char cdr_to_alp[128], alp_to_cdp[256]; extern int8 cdr_to_alp[128], alp_to_cdp[256];
/* SCP data structures and interface routines /* SCP data structures and interface routines
@ -474,7 +474,8 @@ return SCPE_OK;
t_stat parse_sym (char *cptr, t_addr addr, UNIT *uptr, t_value *val, int32 sw) t_stat parse_sym (char *cptr, t_addr addr, UNIT *uptr, t_value *val, int32 sw)
{ {
int32 i, qv, opfl, last; int32 i, qv, opfl, last;
char t, la, *fptr, gbuf[CBUFSIZE]; char la, *fptr, gbuf[CBUFSIZE];
int8 t;
while (isspace (*cptr)) /* absorb spaces */ while (isspace (*cptr)) /* absorb spaces */
cptr++; cptr++;

View file

@ -65,9 +65,9 @@ t_stat tto (uint32 fnc, uint32 inst, uint32 *dat);
t_stat tto_svc (UNIT *uptr); t_stat tto_svc (UNIT *uptr);
t_stat tto_reset (DEVICE *dptr); t_stat tto_reset (DEVICE *dptr);
extern const char ascii_to_sds[128]; extern const int8 ascii_to_sds[128];
extern const char sds_to_ascii[64]; extern const int8 sds_to_ascii[64];
extern const char odd_par[64]; extern const int8 odd_par[64];
/* PTR data structures /* PTR data structures

View file

@ -101,7 +101,7 @@ const char *sim_stop_messages[] = {
/* Character conversion tables */ /* Character conversion tables */
const char sds_to_ascii[64] = { const int8 sds_to_ascii[64] = {
'0', '1', '2', '3', '4', '5', '6', '7', '0', '1', '2', '3', '4', '5', '6', '7',
'8', '9', ' ', '=', '\'', ':', '>', '%', /* 17 = check mark */ '8', '9', ' ', '=', '\'', ':', '>', '%', /* 17 = check mark */
'+', 'A', 'B', 'C', 'D', 'E', 'F', 'G', '+', 'A', 'B', 'C', 'D', 'E', 'F', 'G',
@ -112,7 +112,7 @@ const char sds_to_ascii[64] = {
'Y', 'Z', '?', ',', '(', '~', '\\', '#' /* 72 = rec mark */ 'Y', 'Z', '?', ',', '(', '~', '\\', '#' /* 72 = rec mark */
}; /* 75 = squiggle, 77 = del */ }; /* 75 = squiggle, 77 = del */
const char ascii_to_sds[128] = { const int8 ascii_to_sds[128] = {
-1, -1, -1, -1, -1, -1, -1, -1, /* 0 - 37 */ -1, -1, -1, -1, -1, -1, -1, -1, /* 0 - 37 */
032, 072, -1, -1, -1, 052, -1, -1, 032, 072, -1, -1, -1, 052, -1, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
@ -131,7 +131,7 @@ const char ascii_to_sds[128] = {
067, 070, 071, -1, -1, -1, -1, -1 067, 070, 071, -1, -1, -1, -1, -1
}; };
const char odd_par[64] = { const int8 odd_par[64] = {
0100, 0001, 0002, 0103, 0004, 0105, 0106, 0007, 0100, 0001, 0002, 0103, 0004, 0105, 0106, 0007,
0010, 0111, 0112, 0013, 0114, 0015, 0016, 0117, 0010, 0111, 0112, 0013, 0114, 0015, 0016, 0117,
0020, 0121, 0122, 0023, 0124, 0025, 0026, 0127, 0020, 0121, 0122, 0023, 0124, 0025, 0026, 0127,