Patch for the parameters of Reset and Rewrite in --mac-pascal and --ucsd-pascal mode.
--- predef.c.orig Wed Sep 14 11:11:56 2005 +++ predef.c Wed Sep 14 11:34:11 2005 @@ -2148,7 +2148,7 @@
if (file_name) { - chk_dialect_1 ("file name parameters to `%s' are", GNU_PASCAL, r_name); + chk_dialect_1 ("file name parameters to `%s' are", U_M_PASCAL, r_name); file_name_given = boolean_true_node; } else @@ -2161,12 +2161,12 @@ { if (buffer_size) { - chk_dialect_1 ("file buffer size arguments to `%s' are", U_B_D_M_PASCAL, r_name); + chk_dialect_1 ("file buffer size arguments to `%s' are", B_D_M_PASCAL, r_name); STRIP_TYPE_NOPS (buffer_size); if (TREE_CODE (buffer_size) == INTEGER_CST && !INT_CST_LT (integer_zero_node, buffer_size)) errstr = "file buffer size in `%s' must be > 0"; } - else if (co->pascal_dialect & B_D_M_PASCAL) + else if (co->pascal_dialect & U_B_D_M_PASCAL) { warning ("unspecified buffer size for untyped file defaults to 128 in `%s'", r_name); buffer_size = build_int_2 (128, 0);
Regards,
Adriaan van Os