summaryrefslogtreecommitdiff
path: root/libf2c/libF77/s_cat.c
diff options
context:
space:
mode:
authorghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4>2002-06-01 12:38:32 +0000
committerghazi <ghazi@138bc75d-0d04-0410-961f-82ee72b054a4>2002-06-01 12:38:32 +0000
commit0fa1f522915088d7bcbf7c9492fa70dc6cddaa17 (patch)
treec6c7b1fe59f3ddb8b8ccf102855193850daecdfc /libf2c/libF77/s_cat.c
parentbc09eb06ee8c1540503d5314a71617de2151fbf2 (diff)
downloadgcc-0fa1f522915088d7bcbf7c9492fa70dc6cddaa17.tar.gz
* libF77/*: Fix formatting.
* libI77/*: Likewise. * libU77/*: Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@54145 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libf2c/libF77/s_cat.c')
-rw-r--r--libf2c/libF77/s_cat.c91
1 files changed, 48 insertions, 43 deletions
diff --git a/libf2c/libF77/s_cat.c b/libf2c/libF77/s_cat.c
index d8c933329d2..4e8da1b3fdb 100644
--- a/libf2c/libF77/s_cat.c
+++ b/libf2c/libF77/s_cat.c
@@ -10,56 +10,61 @@
#undef min
#undef max
#include <stdlib.h>
- extern char *F77_aloc(ftnlen, char*);
+extern char *F77_aloc (ftnlen, char *);
#include <string.h>
#endif /* NO_OVERWRITE */
void
-s_cat(char *lp, char *rpp[], ftnint rnp[], ftnint *np, ftnlen ll)
+s_cat (char *lp, char *rpp[], ftnint rnp[], ftnint * np, ftnlen ll)
{
- ftnlen i, nc;
- char *rp;
- ftnlen n = *np;
+ ftnlen i, nc;
+ char *rp;
+ ftnlen n = *np;
#ifndef NO_OVERWRITE
- ftnlen L, m;
- char *lp0, *lp1;
+ ftnlen L, m;
+ char *lp0, *lp1;
- lp0 = 0;
- lp1 = lp;
- L = ll;
- i = 0;
- while(i < n) {
- rp = rpp[i];
- m = rnp[i++];
- if (rp >= lp1 || rp + m <= lp) {
- if ((L -= m) <= 0) {
- n = i;
- break;
- }
- lp1 += m;
- continue;
- }
- lp0 = lp;
- lp = lp1 = F77_aloc(L = ll, "s_cat");
- break;
- }
- lp1 = lp;
+ lp0 = 0;
+ lp1 = lp;
+ L = ll;
+ i = 0;
+ while (i < n)
+ {
+ rp = rpp[i];
+ m = rnp[i++];
+ if (rp >= lp1 || rp + m <= lp)
+ {
+ if ((L -= m) <= 0)
+ {
+ n = i;
+ break;
+ }
+ lp1 += m;
+ continue;
+ }
+ lp0 = lp;
+ lp = lp1 = F77_aloc (L = ll, "s_cat");
+ break;
+ }
+ lp1 = lp;
#endif /* NO_OVERWRITE */
- for(i = 0 ; i < n ; ++i) {
- nc = ll;
- if(rnp[i] < nc)
- nc = rnp[i];
- ll -= nc;
- rp = rpp[i];
- while(--nc >= 0)
- *lp++ = *rp++;
- }
- while(--ll >= 0)
- *lp++ = ' ';
+ for (i = 0; i < n; ++i)
+ {
+ nc = ll;
+ if (rnp[i] < nc)
+ nc = rnp[i];
+ ll -= nc;
+ rp = rpp[i];
+ while (--nc >= 0)
+ *lp++ = *rp++;
+ }
+ while (--ll >= 0)
+ *lp++ = ' ';
#ifndef NO_OVERWRITE
- if (lp0) {
- memcpy(lp0, lp1, L);
- free(lp1);
- }
+ if (lp0)
+ {
+ memcpy (lp0, lp1, L);
+ free (lp1);
+ }
#endif
- }
+}