diff options
author | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-09-05 01:11:54 +0000 |
---|---|---|
committer | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-09-05 01:11:54 +0000 |
commit | ffcbbbab99149ea7d8e800326458b70b54438076 (patch) | |
tree | e2a997b294961a00f5d259edefbef93b8501c089 /libchill/convdurrtstime.c | |
parent | ff8e09bdcb33f98c7094eec337fb5e93da360a0d (diff) |
* Chill runtime moved into toplevel libchill.
* Makefile.in Revamped due to move. Add multilib support.
* configure.in: Similarly. Use autoconf.
* powerset.h: Do not depend on BITS_PER_UNIT.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@22238 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libchill/convdurrtstime.c')
-rw-r--r-- | libchill/convdurrtstime.c | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/libchill/convdurrtstime.c b/libchill/convdurrtstime.c new file mode 100644 index 00000000000..f56fc3a94eb --- /dev/null +++ b/libchill/convdurrtstime.c @@ -0,0 +1,52 @@ +/* Implement timing-related runtime actions for CHILL. + Copyright (C) 1992,1993 Free Software Foundation, Inc. + Author: Wilfried Moser + +This file is part of GNU CC. + +GNU CC is free software; you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation; either version 2, or (at your option) +any later version. + +GNU CC is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with GNU CC; see the file COPYING. If not, write to +the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ + +#include "rts.h" + +/* + * function __convert_duration_rtstime + * + * parameters: + * dur the duration value + * t pointer to the duration value converted to RtsTime + * + * returns: + * void + * + * exceptions: + * none + * + * abstract: + * converts a duration value (unsigned long in millisecs) to RtsTime + * format. + * + */ + +void +__convert_duration_rtstime (dur, t) + unsigned long dur; + RtsTime *t; +{ + unsigned long tmp; + + t->secs = dur / 1000; + tmp = dur - (t->secs * 1000); + t->nanosecs = tmp * 1000000; +} |