summaryrefslogtreecommitdiff
path: root/libf2c/libF77/s_copy.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_copy.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_copy.c')
-rw-r--r--libf2c/libF77/s_copy.c53
1 files changed, 28 insertions, 25 deletions
diff --git a/libf2c/libF77/s_copy.c b/libf2c/libF77/s_copy.c
index a0c98caa3d7..a91071eccab 100644
--- a/libf2c/libF77/s_copy.c
+++ b/libf2c/libF77/s_copy.c
@@ -8,40 +8,43 @@
/* assign strings: a = b */
-void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb)
+void
+s_copy (register char *a, register char *b, ftnlen la, ftnlen lb)
{
- register char *aend, *bend;
+ register char *aend, *bend;
- aend = a + la;
+ aend = a + la;
- if(la <= lb)
+ if (la <= lb)
#ifndef NO_OVERWRITE
- if (a <= b || a >= b + la)
+ if (a <= b || a >= b + la)
#endif
- while(a < aend)
- *a++ = *b++;
+ while (a < aend)
+ *a++ = *b++;
#ifndef NO_OVERWRITE
- else
- for(b += la; a < aend; )
- *--aend = *--b;
+ else
+ for (b += la; a < aend;)
+ *--aend = *--b;
#endif
- else {
- bend = b + lb;
+ else
+ {
+ bend = b + lb;
#ifndef NO_OVERWRITE
- if (a <= b || a >= bend)
+ if (a <= b || a >= bend)
#endif
- while(b < bend)
- *a++ = *b++;
+ while (b < bend)
+ *a++ = *b++;
#ifndef NO_OVERWRITE
- else {
- a += lb;
- while(b < bend)
- *--a = *--bend;
- a += lb;
- }
-#endif
- while(a < aend)
- *a++ = ' ';
- }
+ else
+ {
+ a += lb;
+ while (b < bend)
+ *--a = *--bend;
+ a += lb;
}
+#endif
+ while (a < aend)
+ *a++ = ' ';
+ }
+}