espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-10-18 13:23:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix formatting

Browse Source
This commit is contained in:
Nick Clifton
2000-07-08 20:34:43 +00:00
parent d0313fb7a7
commit f851444e73
3 changed files with 43 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gas/ChangeLog
View File

@ -2,6 +2,9 @@
* config/tc-sh.c: Fix formatting. * config/tc-sh.c: Fix formatting.
* config/tc-tic54x.c: Fix formatting. * config/tc-tic54x.c: Fix formatting.
* depend.c: Fix formatting.
* flonum-konst.c: Likewise.
* flonum-mult.c: Likewise.
2000-07-07 Kazu Hirata <kazu@hxi.com> 2000-07-07 Kazu Hirata <kazu@hxi.com>

14
gas/depend.c
View File

@ -40,9 +40,7 @@ static void wrap_output PARAMS ((FILE *, char *, int));
/* Number of columns allowable. */ /* Number of columns allowable. */
#define MAX_COLUMNS 72 #define MAX_COLUMNS 72
/* Start saving dependencies, to be written to FILENAME. If this is /* Start saving dependencies, to be written to FILENAME. If this is
never called, then dependency tracking is simply skipped. */ never called, then dependency tracking is simply skipped. */
@ -66,7 +64,7 @@ register_dependency (filename)
for (dep = dep_chain; dep != NULL; dep = dep->next) for (dep = dep_chain; dep != NULL; dep = dep->next)
{ {
if (! strcmp (filename, dep->file)) if (!strcmp (filename, dep->file))
return; return;
} }
@ -105,7 +103,7 @@ quote_string_for_make (file, src)
the end of a file name; and backslashes in other the end of a file name; and backslashes in other
contexts should not be doubled. */ contexts should not be doubled. */
char *q; char *q;
for (q = p - 1; src < q && q[-1] == '\\'; q--) for (q = p - 1; src < q && q[-1] == '\\'; q--)
{ {
if (file) if (file)
putc ('\\', file); putc ('\\', file);
@ -118,7 +116,7 @@ quote_string_for_make (file, src)
putc ('\\', file); putc ('\\', file);
i++; i++;
goto ordinary_char; goto ordinary_char;
case '$': case '$':
if (file) if (file)
putc (c, file); putc (c, file);
@ -154,7 +152,11 @@ wrap_output (f, string, spacer)
if (len == 0) if (len == 0)
return; return;
if (column && MAX_COLUMNS - 1 /*spacer*/ - 2 /*` \'*/ < column + len) if (column
&& (MAX_COLUMNS
- 1 /* spacer */
- 2 /* ` \' */
< column + len))
{ {
fprintf (f, " \\\n "); fprintf (f, " \\\n ");
column = 0; column = 0;

75
gas/flonum-mult.c
View File

@ -22,25 +22,22 @@
#include "flonum.h" #include "flonum.h"
/* plan for a . b => p(roduct) /* plan for a . b => p(roduct)
+-------+-------+-/ /-+-------+-------+ +-------+-------+-/ /-+-------+-------+
| a | a | ... | a | a | | a | a | ... | a | a |
| A | A-1 | | 1 | 0 | | A | A-1 | | 1 | 0 |
+-------+-------+-/ /-+-------+-------+ +-------+-------+-/ /-+-------+-------+
+-------+-------+-/ /-+-------+-------+ +-------+-------+-/ /-+-------+-------+
| b | b | ... | b | b | | b | b | ... | b | b |
| B | B-1 | | 1 | 0 | | B | B-1 | | 1 | 0 |
+-------+-------+-/ /-+-------+-------+ +-------+-------+-/ /-+-------+-------+
+-------+-------+-/ /-+-------+-/ /-+-------+-------+ +-------+-------+-/ /-+-------+-/ /-+-------+-------+
| p | p | ... | p | ... | p | p | | p | p | ... | p | ... | p | p |
| A+B+1| A+B | | N | | 1 | 0 | | A+B+1| A+B | | N | | 1 | 0 |
+-------+-------+-/ /-+-------+-/ /-+-------+-------+ +-------+-------+-/ /-+-------+-/ /-+-------+-------+
/^\ /^\
(carry) a .b ... | ... a .b a .b (carry) a .b ... | ... a .b a .b
A B | 0 1 0 0 A B | 0 1 0 0
@ -56,49 +53,48 @@
| \ | \
+----- P = > a .b +----- P = > a .b
N /__ i j N /__ i j
N = 0 ... A+B N = 0 ... A+B
for all i,j where i+j=N for all i,j where i+j=N
[i,j integers > 0] [i,j integers > 0]
a[], b[], p[] may not intersect. a[], b[], p[] may not intersect.
Zero length factors signify 0 significant bits: treat as 0.0. Zero length factors signify 0 significant bits: treat as 0.0.
0.0 factors do the right thing. 0.0 factors do the right thing.
Zero length product OK. Zero length product OK.
I chose the ForTran accent "foo[bar]" instead of the C accent "*garply" I chose the ForTran accent "foo[bar]" instead of the C accent "*garply"
because I felt the ForTran way was more intuitive. The C way would because I felt the ForTran way was more intuitive. The C way would
probably yield better code on most C compilers. Dean Elsner. probably yield better code on most C compilers. Dean Elsner.
(C style also gives deeper insight [to me] ... oh well ...) (C style also gives deeper insight [to me] ... oh well ...) */
*/
void void
flonum_multip (a, b, product) flonum_multip (a, b, product)
const FLONUM_TYPE *a; const FLONUM_TYPE *a;
const FLONUM_TYPE *b; const FLONUM_TYPE *b;
FLONUM_TYPE *product; FLONUM_TYPE *product;
{ {
int size_of_a; /* 0 origin */ int size_of_a; /* 0 origin */
int size_of_b; /* 0 origin */ int size_of_b; /* 0 origin */
int size_of_product; /* 0 origin */ int size_of_product; /* 0 origin */
int size_of_sum; /* 0 origin */ int size_of_sum; /* 0 origin */
int extra_product_positions; /* 1 origin */ int extra_product_positions; /* 1 origin */
unsigned long work; unsigned long work;
unsigned long carry; unsigned long carry;
long exponent; long exponent;
LITTLENUM_TYPE *q; LITTLENUM_TYPE *q;
long significant; /* TRUE when we emit a non-0 littlenum */ long significant; /* TRUE when we emit a non-0 littlenum */
/* ForTran accent follows. */ /* ForTran accent follows. */
int P; /* Scan product low-order -> high. */ int P; /* Scan product low-order -> high. */
int N; /* As in sum above. */ int N; /* As in sum above. */
int A; /* Which [] of a? */ int A; /* Which [] of a? */
int B; /* Which [] of b? */ int B; /* Which [] of b? */
if ((a->sign != '-' && a->sign != '+') || (b->sign != '-' && b->sign != '+')) if ((a->sign != '-' && a->sign != '+')
|| (b->sign != '-' && b->sign != '+'))
{ {
/* ... /* Got to fail somehow. Any suggestions? */
Got to fail somehow. Any suggestions? */
product->sign = 0; product->sign = 0;
return; return;
} }
@ -111,8 +107,8 @@ flonum_multip (a, b, product)
extra_product_positions = size_of_product - size_of_sum; extra_product_positions = size_of_product - size_of_sum;
if (extra_product_positions < 0) if (extra_product_positions < 0)
{ {
P = extra_product_positions; /* P < 0 */ P = extra_product_positions; /* P < 0 */
exponent -= extra_product_positions; /* Increases exponent. */ exponent -= extra_product_positions; /* Increases exponent. */
} }
else else
{ {
@ -130,7 +126,8 @@ flonum_multip (a, b, product)
if (A <= size_of_a && B <= size_of_b && B >= 0) if (A <= size_of_a && B <= size_of_b && B >= 0)
{ {
#ifdef TRACE #ifdef TRACE
printf ("a:low[%d.]=%04x b:low[%d.]=%04x work_before=%08x\n", A, a->low[A], B, b->low[B], work); printf ("a:low[%d.]=%04x b:low[%d.]=%04x work_before=%08x\n",
A, a->low[A], B, b->low[B], work);
#endif #endif
/* Watch out for sign extension! Without the casts, on /* Watch out for sign extension! Without the casts, on
the DEC Alpha, the multiplication result is *signed* the DEC Alpha, the multiplication result is *signed*
@ -162,23 +159,19 @@ flonum_multip (a, b, product)
exponent++; exponent++;
} }
} }
/* /* [P]-> position # size_of_sum + 1.
* [P]-> position # size_of_sum + 1. This is where 'carry' should go. */
* This is where 'carry' should go.
*/
#ifdef TRACE #ifdef TRACE
printf ("final carry =%04x\n", carry); printf ("final carry =%04x\n", carry);
#endif #endif
if (carry) if (carry)
{ {
if (extra_product_positions > 0) if (extra_product_positions > 0)
{ product->low[P] = carry;
product->low[P] = carry;
}
else else
{ {
/* No room at high order for carry littlenum. */ /* No room at high order for carry littlenum. */
/* Shift right 1 to make room for most significant littlenum. */ /* Shift right 1 to make room for most significant littlenum. */
exponent++; exponent++;
P--; P--;
for (q = product->low + P; q >= product->low; q--) for (q = product->low + P; q >= product->low; q--)
@ -190,11 +183,7 @@ flonum_multip (a, b, product)
} }
} }
else else
{ P--;
P--;
}
product->leader = product->low + P; product->leader = product->low + P;
product->exponent = exponent; product->exponent = exponent;
} }
/* end of flonum_mult.c */