+2003-06-19 Bruno Haible <bruno@clisp.org>
+
+ * x-perl.c (enum string_type_ty): Remove trailing comma.
+ (interpolate_keywords::enum parser_state): Likewise.
+ (extract_quotelike_pass3): Cast first argument of u8_uctomb().
+
2003-06-15 Bruno Haible <bruno@clisp.org>
* x-awk.c: Reorder definitions.
string_type_q, /* "'..'", "q/.../". */
string_type_qq, /* '"..."', "`...`", "qq/.../", "qx/.../",
"<file*glob>". */
- string_type_qr, /* Not supported. */
+ string_type_qr /* Not supported. */
};
typedef enum string_type_ty string_type_ty;
crs = extract_oct (crs + 1, 3, &oct_number);
/* Yes, octal escape sequences in the range 0x100..0x1ff are
valid. */
- length = u8_uctomb (buffer + bufpos, oct_number, 2);
+ length = u8_uctomb ((unsigned char *) (buffer + bufpos),
+ oct_number, 2);
if (length > 0)
bufpos += length;
}
crs = extract_hex (crs, 2, &hex_number);
}
- length = u8_uctomb (buffer + bufpos, hex_number, 6);
+ length = u8_uctomb ((unsigned char *) (buffer + bufpos),
+ hex_number, 6);
if (length > 0)
bufpos += length;
}
unicode = unicode_name_character (name);
if (unicode != UNINAME_INVALID)
{
- int length = u8_uctomb (buffer + bufpos, unicode, 6);
+ int length =
+ u8_uctomb ((unsigned char *) (buffer + bufpos),
+ unicode, 6);
if (length > 0)
bufpos += length;
}
dquote,
squote,
barekey,
- wait_rbrace,
+ wait_rbrace
} state;
token_ty token;