Mercurial > octave-libgccjit
diff src/file-io.cc @ 598:80a8a79ea6e4
[project @ 1994-08-10 04:25:38 by jwe]
author | jwe |
---|---|
date | Wed, 10 Aug 1994 04:27:50 +0000 |
parents | 682393bf54f7 |
children | 14b2a186a5c0 |
line wrap: on
line diff
--- a/src/file-io.cc Tue Aug 09 19:34:10 1994 +0000 +++ b/src/file-io.cc Wed Aug 10 04:27:50 1994 +0000 @@ -756,8 +756,6 @@ fmt << "%"; // do_printf() already blew past this one... - tree_constant_rep::constant_type arg_type; - int chars_from_fmt_str = 0; again: @@ -783,8 +781,7 @@ return -1; } - if (args(fmt_arg_count).const_type () - != tree_constant_rep::scalar_constant) + if (! args(fmt_arg_count).is_scalar_type ()) { error ("%s: `*' must be replaced by an integer", type); return -1; @@ -823,8 +820,7 @@ return -1; } - if (args(fmt_arg_count).const_type () - != tree_constant_rep::scalar_constant) + if (! args(fmt_arg_count).is_scalar_type ()) { error ("%s: `*' must be replaced by an integer", type); return -1; @@ -861,13 +857,11 @@ return -1; } - arg_type = args(fmt_arg_count).const_type (); - switch (*s) { case 'd': case 'i': case 'o': case 'u': case 'x': case 'X': - if (arg_type != tree_constant_rep::scalar_constant) + if (! args(fmt_arg_count).is_scalar_type ()) goto invalid_conversion; else { @@ -887,7 +881,7 @@ case 'e': case 'E': case 'f': case 'g': case 'G': - if (arg_type != tree_constant_rep::scalar_constant) + if (! args(fmt_arg_count).is_scalar_type ()) goto invalid_conversion; else { @@ -901,7 +895,7 @@ case 's': - if (arg_type != tree_constant_rep::string_constant) + if (! args(fmt_arg_count).is_string_type ()) goto invalid_conversion; else { @@ -915,7 +909,7 @@ case 'c': - if (arg_type != tree_constant_rep::string_constant) + if (! args(fmt_arg_count).is_string_type ()) goto invalid_conversion; else {