Macintosh-Tools/Retro68
1
0
Fork 0
mirror of https://github.com/autc04/Retro68.git synced 2024-12-23 10:31:22 +00:00
Code Issues Projects Releases Wiki Activity

Make pascal strings work in initializers

Browse Source
This commit is contained in:
Wolfgang Thaller 2014-11-08 00:32:00 +01:00
parent 5426b3a741
commit e004916be5
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/gcc/c/c-typeck.c
View File

@ -6553,7 +6553,7 @@ digest_init (location_t init_loc, tree type, tree init, tree origtype,
if (char_array)
{
if (typ2 != char_type_node)
if (typ2 != char_type_node && typ2 != unsigned_char_type_node)
{
error_init ("char-array initialized from wide string");
return error_mark_node;
@ -6561,7 +6561,7 @@ digest_init (location_t init_loc, tree type, tree init, tree origtype,
}
else
{
if (typ2 == char_type_node)
if (typ2 == char_type_node || typ2 == unsigned_char_type_node)
{
error_init ("wide character array initialized from non-wide "
"string");

4
gcc/gcc/cp/typeck2.c
View File

@ -970,7 +970,7 @@ digest_init_r (tree type, tree init, bool nested, int flags,
if (TYPE_PRECISION (typ1) == BITS_PER_UNIT)
{
if (char_type != char_type_node)
if (char_type != char_type_node && char_type != unsigned_char_type_node)
{
if (complain & tf_error)
error ("char-array initialized from wide string");
@ -979,7 +979,7 @@ digest_init_r (tree type, tree init, bool nested, int flags,
}
else
{
if (char_type == char_type_node)
if (char_type == char_type_node || char_type == unsigned_char_type_node)
{
if (complain & tf_error)
error ("int-array initialized from non-wide string");