diff options
| author | simonm <unknown> | 1998-02-19 13:55:52 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1998-02-19 13:55:52 +0000 |
| commit | 484b89a513a69f49f21d20b457e8ed6d0e0ba1bb (patch) | |
| tree | a0f09304e6a1aab7921b6702f2ec0f9028c533b0 /ghc/lib/misc/cbits | |
| parent | 4e2414d4be2d833521e255562d503e4595826810 (diff) | |
| download | haskell-484b89a513a69f49f21d20b457e8ed6d0e0ba1bb.tar.gz | |
[project @ 1998-02-19 13:55:52 by simonm]
header file for ByteOps.c.
Diffstat (limited to 'ghc/lib/misc/cbits')
| -rw-r--r-- | ghc/lib/misc/cbits/ByteOps.h | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/ghc/lib/misc/cbits/ByteOps.h b/ghc/lib/misc/cbits/ByteOps.h new file mode 100644 index 0000000000..df76013a2b --- /dev/null +++ b/ghc/lib/misc/cbits/ByteOps.h @@ -0,0 +1,18 @@ +#ifndef BYTEOPS_H +#define BYTEOPS_H + +/* "Native" support */ +/* sigh again: without these some (notably "float") willnae work */ +I_ long2bytes__ PROTO((long, unsigned char *)); +I_ int2bytes__ PROTO((int, unsigned char *)); +I_ short2bytes__ PROTO((short, unsigned char *)); +I_ float2bytes__ PROTO((float, unsigned char *)); +I_ double2bytes__ PROTO((double, unsigned char *)); + +I_ bytes2long__ PROTO((P_, I_ *)); +I_ bytes2int__ PROTO((P_, I_ *)); +I_ bytes2short__ PROTO((P_, I_ *)); +I_ bytes2float__ PROTO((P_, StgFloat *)); +I_ bytes2double__ PROTO((P_, StgDouble *)); + +#endif |