URL https://opencores.org/ocsvn/1664/1664/trunk

Subversion Repositories 1664

[/] [1664/] [trunk/] [c/] [lista/] [fl64_frato__cadena.c] - Blame information for rev 2

Details | Compare with Previous | View Log


#include "tipodef.h"
 
fl2 fl2_frato__cadena(n1 *cadena, nN cuantia)
{
 fl2 fl=0.0;
 n1 c;
 nN i;
 
 if (cuantia>0)
 {
  fl=(fl2)(cadena[--cuantia]&0x0f)*0.1;
 
  for (i=--cuantia;i>=0;i--)
  {
   fl=(fl+(fl2)(cadena[i]&0x0f))*0.1;
  }
 }
 
 return fl;
}

Line No.	Rev	Author	Line
1	2	mrdmkg	`#include "tipodef.h"`
2
3			`fl2 fl2_frato__cadena(n1 *cadena, nN cuantia)`
4			`{`
5			`fl2 fl=0.0;`
6			`n1 c;`
7			`nN i;`
8
9			`if (cuantia>0)`
10			`{`
11			`fl=(fl2)(cadena[--cuantia]&0x0f)*0.1;`
12
13			`for (i=--cuantia;i>=0;i--)`
14			`{`
15			`fl=(fl+(fl2)(cadena[i]&0x0f))*0.1;`
16			`}`
17			`}`
18
19			`return fl;`
20			`}`

Browse

Tools

Subversion Repositories 1664

[/] [1664/] [trunk/] [c/] [lista/] [fl64_frato__cadena.c] - Blame information for rev 2