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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gdb-7.2/] [gdb/] [testsuite/] [gdb.reverse/] [i387-env-reverse.c] - Rev 841

Compare with Previous | Blame | View Log

#include <stdio.h>
#include <math.h>
#include <stdlib.h>
 
 
float no1,no2,no3,no4,no5,no6,no7;
float result,resultd,resultld; 
float *float_memory;
long double ldx = 88888888888888888888.88, ldy = 9999999999999999999.99;
double x = 100.345, y = 25.7789;
/* marks FPU stack as empty */
void empty_fpu_stack()
{
  asm ("ffree %st(1) \n\t"
       "ffree %st(2) \n\t"
       "ffree %st(3) \n\t"
       "ffree %st(4) \n\t"
       "ffree %st(5) \n\t"
       "ffree %st(6) \n\t"
       "ffree %st(7)");
}   
 
/* initialization of floats */
void init_floats()
{
  no1 = 10.45;
  no2 = 20.77;
  no3 = 156.89874646;
  no4 = 14.56;
  no5 = 11.11;
  no6 = 66.77;
  no7 = 88.88;
  float_memory = malloc(sizeof(float) * 4);
  *float_memory = 256.256;
  *(float_memory + 1) = 356.356;
  *(float_memory + 2) = 456.456;
  *(float_memory + 3) = 556.556;
}
 
int main()
{
  init_floats();
  empty_fpu_stack();    /* BEGIN I387-FLOAT-REVERSE */  
 
  asm("nop");   /* TEST ENV */
  asm ("fsave %0" : "=m"(*float_memory) : );   
  asm ("frstor %0" : : "m"(*float_memory));
  asm ("fstsw %ax");     /* test eax register */
 
  asm ("fld1");
  asm ("fldl2t");
  asm ("fldl2e");
  asm ("fldpi");
  asm ("fldlg2");
  asm ("fldln2");
  asm ("fldz");
  asm ("nop");
 
  return 1;             /* END I387-FLOAT-REVERSE */
}
 

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.