Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Dylan Yudaken
GHC
Commits
986472c3
Commit
986472c3
authored
Aug 29, 2001
by
sewardj
Browse files
[project @ 2001-08-29 14:55:58 by sewardj]
Add stgCallocBytes().
parent
be1ec674
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/rts/RtsUtils.c
View file @
986472c3
/* -----------------------------------------------------------------------------
* $Id: RtsUtils.c,v 1.2
0
2001/08/
14 13:40:09
sewardj Exp $
* $Id: RtsUtils.c,v 1.2
1
2001/08/
29 14:55:58
sewardj Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -112,6 +112,12 @@ stgReallocWords (void *p, int n, char *msg)
return
(
stgReallocBytes
(
p
,
n
*
sizeof
(
W_
),
msg
));
}
void
*
stgCallocBytes
(
int
n
,
int
m
,
char
*
msg
)
{
return
stgMallocBytes
(
n
*
m
,
msg
);
}
void
_stgAssert
(
char
*
filename
,
unsigned
int
linenum
)
{
...
...
ghc/rts/RtsUtils.h
View file @
986472c3
/* -----------------------------------------------------------------------------
* $Id: RtsUtils.h,v 1.1
0
200
0
/0
5/18 11:32:21 panne
Exp $
* $Id: RtsUtils.h,v 1.1
1
200
1
/0
8/29 14:55:58 sewardj
Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -11,6 +11,8 @@ extern void *stgMallocBytes(int n, char *msg);
extern
void
*
stgMallocWords
(
int
n
,
char
*
msg
);
extern
void
*
stgReallocBytes
(
void
*
p
,
int
n
,
char
*
msg
);
extern
void
*
stgReallocWords
(
void
*
p
,
int
n
,
char
*
msg
);
extern
void
*
stgCallocBytes
(
int
n
,
int
m
,
char
*
msg
);
extern
void
barf
(
char
*
s
,
...)
__attribute__
((
__noreturn__
))
;
extern
void
belch
(
char
*
s
,
...);
extern
void
prog_belch
(
char
*
s
,
...);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment