|
10 | 10 | /************************************************************************/ |
11 | 11 |
|
12 | 12 | #define MAX_SMALL 65535 /* == 0x0000FFFF */ |
13 | | -#define MIN_SMALL -65536 /* == 0xFFFF0000 */ |
| 13 | +#define MIN_SMALL (-65536) /* == 0xFFFF0000 */ |
14 | 14 |
|
15 | 15 | #define MAX_FIXP 2147483647 /* == 0x7FFFFFFF */ |
16 | | -#define MIN_FIXP -2147483648 /* == 0x80000000 */ |
| 16 | +#define MIN_FIXP (-2147483648) /* == 0x80000000 */ |
17 | 17 |
|
18 | 18 | #define GetSmalldata(x) \ |
19 | | - (((SEGMASK & x) == S_POSITIVE) \ |
20 | | - ? (0xFFFF & x) \ |
21 | | - : (((SEGMASK & x) == S_NEGATIVE) ? (0xFFFF0000 | x) : error("Not smallp address"))) |
| 19 | + (((SEGMASK & (x)) == S_POSITIVE) \ |
| 20 | + ? (0xFFFF & (x)) \ |
| 21 | + : (((SEGMASK & (x)) == S_NEGATIVE) ? (0xFFFF0000 | (x)) : error("Not smallp address"))) |
22 | 22 |
|
23 | 23 | #define GetSmallp(x) \ |
24 | | - ((0xFFFF0000 & x) ? (((0xFFFF0000 & x) == 0xFFFF0000) ? (S_NEGATIVE | (0xFFFF & x)) \ |
| 24 | + ((0xFFFF0000 & (x)) ? (((0xFFFF0000 & (x)) == 0xFFFF0000) ? (S_NEGATIVE | (0xFFFF & (x))) \ |
25 | 25 | : error("Not Smallp data")) \ |
26 | | - : (S_POSITIVE | (0xFFFF & x))) |
| 26 | + : (S_POSITIVE | (0xFFFF & (x)))) |
27 | 27 |
|
28 | 28 | #define FIXP_VALUE(dest) *((int *)Addr68k_from_LADDR(dest)) |
29 | 29 |
|
30 | 30 | #define FLOATP_VALUE(dest) *((float *)Addr68k_from_LADDR(dest)) |
31 | 31 |
|
32 | 32 | #define N_GETNUMBER(sour, dest, label) \ |
33 | 33 | do { \ |
34 | | - dest = sour; /* access memory once */ \ |
35 | | - switch (SEGMASK & dest) { \ |
36 | | - case S_POSITIVE: dest = 0xFFFF & (dest); break; \ |
37 | | - case S_NEGATIVE: dest = 0xFFFF0000 | (dest); break; \ |
| 34 | + (dest) = (sour); /* access memory once */ \ |
| 35 | + switch (SEGMASK & (dest)) { \ |
| 36 | + case S_POSITIVE: (dest) = 0xFFFF & (dest); break; \ |
| 37 | + case S_NEGATIVE: (dest) = 0xFFFF0000 | (dest); break; \ |
38 | 38 | default: \ |
| 39 | + /* NOLINTNEXTLINE(bugprone-macro-parentheses) */ \ |
39 | 40 | if (GetTypeNumber(dest) != TYPE_FIXP) goto label; \ |
40 | | - dest = FIXP_VALUE(dest); \ |
| 41 | + (dest) = FIXP_VALUE(dest); \ |
41 | 42 | } \ |
42 | 43 | } while (0) |
43 | 44 |
|
44 | 45 | #define N_IGETNUMBER(sour, dest, label) \ |
45 | 46 | do { \ |
46 | | - dest = sour; /* access memory once */ \ |
47 | | - switch (SEGMASK & dest) { \ |
48 | | - case S_POSITIVE: dest = 0xFFFF & dest; break; \ |
49 | | - case S_NEGATIVE: dest = 0xFFFF0000 | dest; break; \ |
| 47 | + (dest) = (sour); /* access memory once */ \ |
| 48 | + switch (SEGMASK & (dest)) { \ |
| 49 | + case S_POSITIVE: (dest) = 0xFFFF & (dest); break; \ |
| 50 | + case S_NEGATIVE: (dest) = 0xFFFF0000 | (dest); break; \ |
50 | 51 | default: \ |
51 | 52 | switch (GetTypeNumber(dest)) { \ |
52 | | - case TYPE_FIXP: dest = FIXP_VALUE(dest); break; \ |
| 53 | + case TYPE_FIXP: (dest) = FIXP_VALUE(dest); break; \ |
53 | 54 | case TYPE_FLOATP: { \ |
54 | 55 | register float temp; \ |
55 | 56 | temp = FLOATP_VALUE(dest); \ |
| 57 | + /* NOLINTNEXTLINE(bugprone-macro-parentheses) */ \ |
56 | 58 | if ((temp > ((float)0x7fffffff)) || (temp < ((float)0x80000000))) goto label; \ |
57 | | - dest = (int)temp; \ |
| 59 | + (dest) = (int)temp; \ |
58 | 60 | } break; \ |
59 | | - default: goto label; \ |
| 61 | + default: goto label; /* NOLINT(bugprone-macro-parentheses) */ \ |
60 | 62 | } \ |
61 | 63 | break; \ |
62 | 64 | } \ |
63 | 65 | } while (0) |
64 | 66 |
|
65 | 67 | #define ARITH_SWITCH(arg, result) \ |
66 | 68 | do { \ |
67 | | - switch ((int)arg & 0xFFFF0000) { \ |
68 | | - case 0: result = (S_POSITIVE | (int)arg); break; \ |
69 | | - case 0xFFFF0000: result = (S_NEGATIVE | (0xFFFF & (int)arg)); break; \ |
| 69 | + switch ((int)(arg) & 0xFFFF0000) { \ |
| 70 | + case 0: (result) = (S_POSITIVE | (int)(arg)); break; \ |
| 71 | + case 0xFFFF0000: (result) = (S_NEGATIVE | (0xFFFF & (int)(arg))); break; \ |
70 | 72 | default: { \ |
71 | 73 | register LispPTR *wordp; \ |
72 | 74 | /* arg is FIXP, call createcell */ \ |
73 | 75 | wordp = (LispPTR *)createcell68k(TYPE_FIXP); \ |
74 | | - *((int *)wordp) = (int)arg; \ |
75 | | - result = (LADDR_from_68k(wordp)); \ |
| 76 | + *((int *)wordp) = (int)(arg); \ |
| 77 | + (result) = (LADDR_from_68k(wordp)); \ |
76 | 78 | break; \ |
77 | 79 | } \ |
78 | 80 | } \ |
|
104 | 106 |
|
105 | 107 | #define N_ARITH_SWITCH(arg) \ |
106 | 108 | do { \ |
107 | | - switch (arg & 0xFFFF0000) { \ |
108 | | - case 0: return (S_POSITIVE | arg); \ |
109 | | - case 0xFFFF0000: return (S_NEGATIVE | (0xFFFF & arg)); \ |
| 109 | + switch ((arg) & 0xFFFF0000) { \ |
| 110 | + case 0: return (S_POSITIVE | (arg)); \ |
| 111 | + case 0xFFFF0000: return (S_NEGATIVE | (0xFFFF & (arg))); \ |
110 | 112 | default: { \ |
111 | 113 | register LispPTR *fixpp; \ |
112 | 114 | /* arg is FIXP, call createcell */ \ |
|
0 commit comments