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

Subversion Repositories 1664

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

Details | Compare with Previous | View Log


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

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

Browse

Tools

Subversion Repositories 1664

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