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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [unsorted/] [d.c] - Blame information for rev 853

Go to most recent revision | Details | Compare with Previous | View Log


long long unsigned
str2llu (str)
     char *str;
{
  long long unsigned acc;
  long long b = 10;
  char d;
  acc =  *str++ - '0';
  for (;;)
    {
      d = *str++;
      if (d == '\0')
        break;
      d -= '0';
      acc = acc * 10 + d;
    }
 
  return acc;
}

Line No.	Rev	Author	Line
1	149	jeremybenn	`long long unsigned`
2			`str2llu (str)`
3			`char *str;`
4			`{`
5			`long long unsigned acc;`
6			`long long b = 10;`
7			`char d;`
8			`acc = *str++ - '0';`
9			`for (;;)`
10			`{`
11			`d = *str++;`
12			`if (d == '\0')`
13			`break;`
14			`d -= '0';`
15			`acc = acc * 10 + d;`
16			`}`
17
18			`return acc;`
19			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [unsorted/] [d.c] - Blame information for rev 853