URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 207 |
Rev 520 |
/*
|
/*
|
* [atw] multiply 64 bit accumulator by 10 and add digit.
|
* [atw] multiply 64 bit accumulator by 10 and add digit.
|
* The KA/CA way to do this should be to use
|
* The KA/CA way to do this should be to use
|
* a 64-bit integer internally and use "adjust" to
|
* a 64-bit integer internally and use "adjust" to
|
* convert it to float at the end of processing.
|
* convert it to float at the end of processing.
|
*/
|
*/
|
|
|
#include <_ansi.h>
|
#include <_ansi.h>
|
#include "std.h"
|
#include "std.h"
|
|
|
int
|
int
|
_DEFUN (__ten_mul, (acc, digit),
|
_DEFUN (__ten_mul, (acc, digit),
|
double *acc _AND
|
double *acc _AND
|
int digit)
|
int digit)
|
{
|
{
|
/*
|
/*
|
* [atw] Crude, but effective (at least on a KB)...
|
* [atw] Crude, but effective (at least on a KB)...
|
*/
|
*/
|
|
|
*acc *= 10;
|
*acc *= 10;
|
*acc += digit;
|
*acc += digit;
|
|
|
return 0; /* no overflow */
|
return 0; /* no overflow */
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.