1929 |
|
|
1930 |
if (idxval < 0 || idxval >= SCHARS (array)) |
if (idxval < 0 || idxval >= SCHARS (array)) |
1931 |
args_out_of_range (array, idx); |
args_out_of_range (array, idx); |
1932 |
CHECK_NUMBER (newelt); |
CHECK_CHARACTER (newelt); |
1933 |
|
|
1934 |
nbytes = SBYTES (array); |
nbytes = SBYTES (array); |
1935 |
|
|
1966 |
args_out_of_range (array, idx); |
args_out_of_range (array, idx); |
1967 |
CHECK_NUMBER (newelt); |
CHECK_NUMBER (newelt); |
1968 |
|
|
1969 |
if (XINT (newelt) < 0 || ASCII_CHAR_P (XINT (newelt))) |
if (XINT (newelt) < 0 || ASCII_CHAR_P (XINT (newelt)) |
1970 |
|
|| CHAR_BYTE8_P (XINT (newelt))) |
1971 |
SSET (array, idxval, XINT (newelt)); |
SSET (array, idxval, XINT (newelt)); |
1972 |
else |
else |
1973 |
{ |
{ |