godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

delinted somewhat

Browse Source
This commit is contained in:
ceriel
1988-09-05 15:51:35 +00:00
parent dca9ed9bb2
commit a0d2a1ea74
5 changed files with 24 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
lang/m2/comp/options.c
View File

@@ -156,7 +156,7 @@ DoOption(text)
#ifndef NOCROSS
{
register int size;
register int align;
register int algn;
char c;
char *t;
@@ -165,10 +165,10 @@ DoOption(text)
t = text;
size = txt2int(&t);
align = 0;
algn = 0;
if (*(text = t) == '.') {
t = text + 1;
align = txt2int(&t);
algn = txt2int(&t);
text = t;
}
if (! strindex("wislfdpS", c)) {
@@ -199,31 +199,31 @@ DoOption(text)
pointer_size = size;
break;
}
if (align != 0) switch (c) {
if (algn != 0) switch (c) {
case 'w': /* word */
word_align = align;
word_align = algn;
break;
case 'i': /* int */
int_align = align;
int_align = algn;
break;
case 's': /* short (subranges) */
short_align = align;
short_align = algn;
break;
case 'l': /* longint */
long_align = align;
long_align = algn;
break;
case 'f': /* real */
float_align = align;
float_align = algn;
break;
case 'd': /* longreal */
double_align = align;
double_align = algn;
break;
case 'p': /* pointer */
pointer_align = align;
pointer_align = algn;
break;
case 'S': /* initial record alignment */
struct_align = align;
struct_align = algn;
break;
}
}