d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

revised the treatment of strings in initialisations

Browse source
This commit is contained in:
erikb 1986-04-04 09:54:50 +00:00
parent c8453bb3f7
commit bb8d6b5143
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lang/cem/cemcom/ival.c
View file

@ -514,16 +514,23 @@ init_string(tpp, ex)
}
else {
arith dim = tp->tp_size / tp->tp_up->tp_size;
extern char options[];
if (length > dim) {
if (options['R'])
too_many_initialisers(ex);
else { /* don't take the null byte into account */
if (length > dim + 1)
expr_warning(ex,
"too many initialisers");
length = dim;
}
}
ntopad = align(dim, word_align) - length;
if (length > dim)
expr_error(ex,
"too many characters in initialiser string");
}
/* throw out the characters of the already prepared string */
do
while (length-- > 0)
C_con_ucon(long2str((long)*s++ & 0xFF, 10), (arith)1);
while (--length > 0);
/* pad the allocated memory (the alignment has been calculated) */
while (ntopad-- > 0)
con_nullbyte();