Parameters of Reset and Rewrite - Gpc

14 Sep 2005

(repost)
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

    