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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.target/] [i386/] [pr21291.c] - Blame information for rev 149

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

Line No. Rev Author Line
1 149 jeremybenn
/* { dg-do compile } */
2
/* { dg-options "-O" } */
3
 
4
typedef unsigned long bngdigit;
5
typedef bngdigit *bng;
6
typedef unsigned int bngcarry;
7
typedef unsigned long bngsize;
8
 
9
bngdigit
10
bng_ia32_mult_sub_digit (bng a, bngsize alen, bng b, bngsize blen, bngdigit d)
11
{
12
  bngdigit out, tmp;
13
  bngcarry carry;
14
  bngdigit a11;
15
 
16
  alen -= blen;
17
  out = 0;
18
  asm (""
19
       : "+r" (a), "+r" (b), "+mr" (blen), "+mr" (out), "=&r" (tmp)
20
       : "mr" (d)
21
       : "eax", "edx");
22
  if (alen == 0)
23
    {
24
      a11 = out;
25
      goto t;
26
    }
27
 
28
  a11 = 1;
29
 t:
30
  return a11;
31
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.