diff options
| author | Craig Burley <burley@gnu.org> | 1998-02-22 14:25:07 -0500 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1998-02-22 12:25:07 -0700 |
| commit | 6d4331962422e9333a9ca194aa9f81fc997f3cc7 (patch) | |
| tree | facdf38294937d58cfe1b183702b631ef826e62c /gcc/f/intrin.c | |
| parent | 575094a2d6edced0069c17ebac487cde56816243 (diff) | |
| download | gcc-6d4331962422e9333a9ca194aa9f81fc997f3cc7.tar.gz | |
Various changes from Craig. See the appropriate ChangeLog files.
From-SVN: r18182
Diffstat (limited to 'gcc/f/intrin.c')
| -rw-r--r-- | gcc/f/intrin.c | 78 |
1 files changed, 42 insertions, 36 deletions
diff --git a/gcc/f/intrin.c b/gcc/f/intrin.c index 16f36fbdb3c..553a6d63d55 100644 --- a/gcc/f/intrin.c +++ b/gcc/f/intrin.c @@ -398,6 +398,10 @@ ffeintrin_check_ (ffeintrinImp imp, ffebldOp op, case 6: akt = 3; break; + + case 7: + akt = ffecom_pointer_kind (); + break; } } okay &= anynum || (ffeinfo_kindtype (i) == akt); @@ -593,6 +597,10 @@ ffeintrin_check_ (ffeintrinImp imp, ffebldOp op, case 6: kt = 3; break; + + case 7: + kt = ffecom_pointer_kind (); + break; } } break; @@ -603,10 +611,6 @@ ffeintrin_check_ (ffeintrinImp imp, ffebldOp op, kt = 1; break; - case 'p': - kt = ffecom_pointer_kind (); - break; - case '=': need_col = TRUE; /* Fall through. */ @@ -991,6 +995,10 @@ ffeintrin_check_ (ffeintrinImp imp, ffebldOp op, case 6: akt = 3; break; + + case 7: + akt = ffecom_pointer_kind (); + break; } } okay &= anynum || (ffeinfo_kindtype (i) == akt); @@ -1569,14 +1577,14 @@ ffeintrin_init_0 () if ((c[0] != '-') && (c[0] != 'A') - && (c[0] != 'C') - && (c[0] != 'I') - && (c[0] != 'L') - && (c[0] != 'R') - && (c[0] != 'B') - && (c[0] != 'F') - && (c[0] != 'N') - && (c[0] != 'S')) + && (c[0] != 'C') + && (c[0] != 'I') + && (c[0] != 'L') + && (c[0] != 'R') + && (c[0] != 'B') + && (c[0] != 'F') + && (c[0] != 'N') + && (c[0] != 'S')) { fprintf (stderr, "%s: bad return-base-type\n", ffeintrin_imps_[i].name); @@ -1584,10 +1592,9 @@ ffeintrin_init_0 () } if ((c[1] != '-') && (c[1] != '=') - && ((c[1] < '1') - || (c[1] > '9')) - && (c[1] != 'C') - && (c[1] != 'p')) + && ((c[1] < '1') + || (c[1] > '9')) + && (c[1] != 'C')) { fprintf (stderr, "%s: bad return-kind-type\n", ffeintrin_imps_[i].name); @@ -1613,8 +1620,8 @@ ffeintrin_init_0 () } if ((c[colon + 1] != '-') && (c[colon + 1] != '*') - && ((c[colon + 1] < '0') - || (c[colon + 1] > '9'))) + && ((c[colon + 1] < '0') + || (c[colon + 1] > '9'))) { fprintf (stderr, "%s: bad COL-spec\n", ffeintrin_imps_[i].name); @@ -1625,7 +1632,7 @@ ffeintrin_init_0 () { while ((c[0] != '=') && (c[0] != ',') - && (c[0] != '\0')) + && (c[0] != '\0')) ++c; if (c[0] != '=') { @@ -1635,28 +1642,27 @@ ffeintrin_init_0 () } if ((c[1] == '?') || (c[1] == '!') - || (c[1] == '!') || (c[1] == '+') - || (c[1] == '*') + || (c[1] == '*') || (c[1] == 'n') - || (c[1] == 'p')) + || (c[1] == 'p')) ++c; if (((c[1] != '-') && (c[1] != 'A') - && (c[1] != 'C') - && (c[1] != 'I') - && (c[1] != 'L') - && (c[1] != 'R') - && (c[1] != 'B') - && (c[1] != 'F') - && (c[1] != 'N') - && (c[1] != 'S') - && (c[1] != 'g') - && (c[1] != 's')) + && (c[1] != 'C') + && (c[1] != 'I') + && (c[1] != 'L') + && (c[1] != 'R') + && (c[1] != 'B') + && (c[1] != 'F') + && (c[1] != 'N') + && (c[1] != 'S') + && (c[1] != 'g') + && (c[1] != 's')) || ((c[2] != '*') && ((c[2] < '1') || (c[2] > '9')) - && (c[2] != 'A'))) + && (c[2] != 'A'))) { fprintf (stderr, "%s: bad arg-type\n", ffeintrin_imps_[i].name); @@ -1693,13 +1699,13 @@ ffeintrin_init_0 () ++c; if ((c[3] == '&') || (c[3] == 'i') - || (c[3] == 'w') - || (c[3] == 'x')) + || (c[3] == 'w') + || (c[3] == 'x')) ++c; if (c[3] == ',') { c += 4; - break; + continue; } if (c[3] != '\0') { |