OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

cpu_time.c: Add cpu_time_10 and cpu_time_16 routines. 

2006-09-29  Steven G. Kargl  <kargl@gcc.gnu.org>
 
	* intrinsics/cpu_time.c:  Add cpu_time_10 and cpu_time_16 routines.

From-SVN: r117320
This commit is contained in:
Steven G. Kargl 2006-09-29 22:21:53 +00:00
parent be14fe72cb
commit d68d3a3d4b
2 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

@ -1,3 +1,7 @@
2006-09-29 Steven G. Kargl <kargl@gcc.gnu.org>
* intrinsics/cpu_time.c: Add cpu_time_10 and cpu_time_16 routines.
2006-09-28 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* Makefile.am: Install libgfortranbegin inside compiler libraries

24
libgfortran/intrinsics/cpu_time.c
View File

@ -171,6 +171,30 @@ void cpu_time_8 (GFC_REAL_8 *time)
*time = sec + usec * (GFC_REAL_8)1.e-6;
}
#ifdef HAVE_GFC_REAL_10
extern void cpu_time_10 (GFC_REAL_10 *);
export_proto(cpu_time_10);
void cpu_time_10 (GFC_REAL_10 *time)
{
long sec, usec;
__cpu_time_1 (&sec, &usec);
*time = sec + usec * (GFC_REAL_10)1.e-6;
}
#endif
#ifdef HAVE_GFC_REAL_16
extern void cpu_time_16 (GFC_REAL_16 *);
export_proto(cpu_time_16);
void cpu_time_16 (GFC_REAL_16 *time)
{
long sec, usec;
__cpu_time_1 (&sec, &usec);
*time = sec + usec * (GFC_REAL_16)1.e-6;
}
#endif
extern void second_sub (GFC_REAL_4 *);
export_proto(second_sub);