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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [spu/] [muldivti3.c] - Rev 691

Compare with Previous | Blame | View Log

/* { dg-do run } */
/* { dg-options "-std=c99" } */
#include <stdlib.h>
typedef unsigned int uqword __attribute__((mode(TI)));
typedef int qword __attribute__((mode(TI)));
 
typedef union
{
  uqword                uq;
  qword                 q;
  unsigned long long    ull[2];
} u;
 
int main(void)
{
  uqword e, f;
  qword g, h;
 
  e = 0x1111111111111111ULL;
  f = 0xFULL;
  g = 0x0000000000111100ULL;
  h = 0x0000000000000000ULL;
 
  u m, n, o, p, q;
 
  m.ull[0] = f;
  m.ull[1] = e;
  n.ull[0] = h;
  n.ull[1] = g;
 
  /* __multi3  */
  o.q = m.q * n.q;
 
  o.q = o.q + n.q + 0x1110FF;
  /* __udivti3, __umodti3  */
  p.uq = o.uq / n.uq;
  q.uq = o.uq % n.uq;
  if (p.uq != (m.uq+1)) abort();
  if (q.uq != 0x1110FF) abort();
  /* __divti3, __modti3  */
  p.q = -o.q / n.q;
  q.q = -o.q % n.q;
  if ((-p.q * n.q - q.q) != o.q) abort();
 
  return 0;
}
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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