Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
a5dc9cda
Commit
a5dc9cda
authored
Feb 05, 1999
by
simonm
Browse files
[project @ 1999-02-05 15:25:01 by simonm]
Remove MUT_ARR_WORDS. I'm not sure why we had it in the first place.
parent
f3033944
Changes
9
Hide whitespace changes
Inline
Side-by-side
ghc/includes/ClosureTypes.h
View file @
a5dc9cda
/* ----------------------------------------------------------------------------
* $Id: ClosureTypes.h,v 1.
7
1999/0
1/26 16:16:19
simonm Exp $
* $Id: ClosureTypes.h,v 1.
8
1999/0
2/05 15:25:01
simonm Exp $
*
* Closure Type Constants
*
...
...
@@ -62,16 +62,15 @@
#define BLACKHOLE_BQ 48
#define MVAR 49
#define ARR_WORDS 50
#define MUT_ARR_WORDS 51
#define MUT_ARR_PTRS 52
#define MUT_ARR_PTRS_FROZEN 53
#define MUT_VAR 54
#define WEAK 55
#define FOREIGN 56
#define STABLE_NAME 57
#define TSO 58
#define BLOCKED_FETCH 59
#define FETCH_ME 60
#define EVACUATED 61
#define MUT_ARR_PTRS 51
#define MUT_ARR_PTRS_FROZEN 52
#define MUT_VAR 53
#define WEAK 54
#define FOREIGN 55
#define STABLE_NAME 56
#define TSO 57
#define BLOCKED_FETCH 58
#define FETCH_ME 69
#define EVACUATED 60
#endif CLOSURETYPES_H
ghc/includes/InfoTables.h
View file @
a5dc9cda
/* ----------------------------------------------------------------------------
* $Id: InfoTables.h,v 1.
8
1999/02/05 1
2:41:32 sof
Exp $
* $Id: InfoTables.h,v 1.
9
1999/02/05 1
5:25:02 simonm
Exp $
*
* Info Tables
*
...
...
@@ -146,8 +146,6 @@ typedef enum {
,
MVAR
,
ARR_WORDS
,
MUT_ARR_WORDS
,
MUT_ARR_PTRS
,
MUT_ARR_PTRS_FROZEN
...
...
@@ -225,7 +223,6 @@ typedef enum {
#define FLAGS_IND_STATIC ( _STA )
#define FLAGS_EVACUATED 0
#define FLAGS_ARR_WORDS (_HNF| _NS| _UPT )
#define FLAGS_MUT_ARR_WORDS (_HNF| _NS| _MUT|_UPT )
#define FLAGS_MUT_ARR_PTRS (_HNF| _NS| _MUT|_UPT )
#define FLAGS_MUT_ARR_PTRS_FROZEN (_HNF| _NS| _MUT|_UPT )
#define FLAGS_MUT_VAR (_HNF| _NS| _MUT|_UPT )
...
...
ghc/includes/PrimOps.h
View file @
a5dc9cda
/* -----------------------------------------------------------------------------
* $Id: PrimOps.h,v 1.1
4
1999/02/0
2
1
4:19:49
simonm Exp $
* $Id: PrimOps.h,v 1.1
5
1999/02/0
5
1
5:25:03
simonm Exp $
*
* Macros for primitive operations in STG-ish C code.
*
...
...
@@ -415,8 +415,7 @@ LI_ stg_word64ToInt64 (StgNat64);
#ifdef DEBUG
#define BYTE_ARR_CTS(a) \
({ ASSERT((GET_INFO(a) == &ARR_WORDS_info) \
|| (GET_INFO(a) == &MUT_ARR_WORDS_info)); \
({ ASSERT(GET_INFO(a) == &ARR_WORDS_info); \
REAL_BYTE_ARR_CTS(a); })
#define PTRS_ARR_CTS(a) \
({ ASSERT((GET_INFO(a) == &ARR_PTRS_info) \
...
...
ghc/includes/StgMiscClosures.h
View file @
a5dc9cda
/* -----------------------------------------------------------------------------
* $Id: StgMiscClosures.h,v 1.
7
1999/02/0
1
1
8:05:31
simonm Exp $
* $Id: StgMiscClosures.h,v 1.
8
1999/02/0
5
1
5:25:03
simonm Exp $
*
* Entry code for various built-in closure types.
*
...
...
@@ -33,7 +33,6 @@ STGFUN(TSO_entry);
STGFUN
(
FULL_MVAR_entry
);
STGFUN
(
EMPTY_MVAR_entry
);
STGFUN
(
ARR_WORDS_entry
);
STGFUN
(
MUT_ARR_WORDS_entry
);
STGFUN
(
MUT_ARR_PTRS_entry
);
STGFUN
(
MUT_ARR_PTRS_FROZEN_entry
);
STGFUN
(
MUT_VAR_entry
);
...
...
@@ -65,7 +64,6 @@ extern const StgInfoTable FULL_MVAR_info;
extern
const
StgInfoTable
EMPTY_MVAR_info
;
extern
const
StgInfoTable
TSO_info
;
extern
const
StgInfoTable
ARR_WORDS_info
;
extern
const
StgInfoTable
MUT_ARR_WORDS_info
;
extern
const
StgInfoTable
MUT_ARR_PTRS_info
;
extern
const
StgInfoTable
MUT_ARR_PTRS_FROZEN_info
;
extern
const
StgInfoTable
MUT_VAR_info
;
...
...
ghc/rts/DebugProf.c
View file @
a5dc9cda
/* -----------------------------------------------------------------------------
* $Id: DebugProf.c,v 1.
4
1999/0
1/15 17:57
:0
5
simonm Exp $
* $Id: DebugProf.c,v 1.
5
1999/0
2/05 15:25
:0
4
simonm Exp $
*
* (c) The GHC Team 1998
*
...
...
@@ -162,7 +162,6 @@ static char *type_names[] = {
,
"ARR_WORDS"
,
"MUT_ARR_WORDS"
,
"MUT_ARR_PTRS"
,
"MUT_ARR_PTRS_FROZEN"
,
"MUT_VAR"
...
...
@@ -313,7 +312,6 @@ heapCensus(bdescr *bd)
break
;
case
ARR_WORDS
:
case
MUT_ARR_WORDS
:
size
=
arr_words_sizeW
(
stgCast
(
StgArrWords
*
,
p
));
break
;
...
...
ghc/rts/Evaluator.c
View file @
a5dc9cda
...
...
@@ -5,8 +5,8 @@
* Copyright (c) 1994-1998.
*
* $RCSfile: Evaluator.c,v $
* $Revision: 1.
6
$
* $Date: 1999/02/05 1
0
:2
9:21
$
* $Revision: 1.
7
$
* $Date: 1999/02/05 1
5
:2
5:05
$
* ---------------------------------------------------------------------------*/
#include
"Rts.h"
...
...
@@ -2249,7 +2249,7 @@ enterLoop:
StgWord
size
=
sizeofW
(
StgArrWords
)
+
words
;
nat
i
;
StgArrWords
*
arr
=
stgCast
(
StgArrWords
*
,
allocate
(
size
));
SET_HDR
(
arr
,
&
MUT_
ARR_WORDS_info
,
CCCS
);
SET_HDR
(
arr
,
&
ARR_WORDS_info
,
CCCS
);
arr
->
words
=
words
;
#ifdef DEBUG
for
(
i
=
0
;
i
<
n
;
++
i
)
{
...
...
ghc/rts/GC.c
View file @
a5dc9cda
/* -----------------------------------------------------------------------------
* $Id: GC.c,v 1.2
5
1999/02/05 1
4:49:22
simonm Exp $
* $Id: GC.c,v 1.2
6
1999/02/05 1
5:25:07
simonm Exp $
*
* Two-space garbage collector
*
...
...
@@ -1276,7 +1276,6 @@ loop:
}
return
((
StgEvacuated
*
)
q
)
->
evacuee
;
case
MUT_ARR_WORDS
:
case
ARR_WORDS
:
{
nat
size
=
arr_words_sizeW
(
stgCast
(
StgArrWords
*
,
q
));
...
...
@@ -1648,7 +1647,6 @@ scavenge(step *step)
}
case
ARR_WORDS
:
case
MUT_ARR_WORDS
:
/* nothing to follow */
p
+=
arr_words_sizeW
(
stgCast
(
StgArrWords
*
,
p
));
break
;
...
...
@@ -2339,7 +2337,6 @@ scavenge_large(step *step)
/* only certain objects can be "large"... */
case
ARR_WORDS
:
case
MUT_ARR_WORDS
:
/* nothing to follow */
continue
;
...
...
ghc/rts/PrimOps.hc
View file @
a5dc9cda
/* -----------------------------------------------------------------------------
* $Id: PrimOps.hc,v 1.1
1
1999/02/0
2
1
4:17
:0
5
simonm Exp $
* $Id: PrimOps.hc,v 1.1
2
1999/02/0
5
1
5:25
:0
9
simonm Exp $
*
* Primitive functions / data
*
...
...
@@ -197,7 +197,7 @@ const
size = sizeofW(StgArrWords)+ stuff_size; \
p = (StgArrWords *)RET_STGCALL1(P_,allocate,size); \
TICK_ALLOC_PRIM(sizeofW(StgArrWords),stuff_size,0); \
SET_HDR(p, &
MUT_
ARR_WORDS_info, CCCS); \
SET_HDR(p, &ARR_WORDS_info, CCCS); \
p->words = stuff_size; \
TICK_RET_UNBOXED_TUP(1) \
RET_P(p); \
...
...
ghc/rts/StgMiscClosures.hc
View file @
a5dc9cda
/* -----------------------------------------------------------------------------
* $Id: StgMiscClosures.hc,v 1.1
1
1999/02/0
2
1
4
:2
1:32
simonm Exp $
* $Id: StgMiscClosures.hc,v 1.1
2
1999/02/0
5
1
5
:2
5:09
simonm Exp $
*
* Entry code for various built-in closure types.
*
...
...
@@ -327,7 +327,6 @@ INFO_TABLE(type##_info, type##_entry, 0, 0, type, const, EF_,0,0); \
NON_ENTERABLE_ENTRY_CODE(type);
ArrayInfo(ARR_WORDS);
ArrayInfo(MUT_ARR_WORDS);
ArrayInfo(MUT_ARR_PTRS);
ArrayInfo(MUT_ARR_PTRS_FROZEN);
...
...
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