Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
GHC
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Iterations
Merge Requests
0
Merge Requests
0
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Package Registry
Container Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issue
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Tobias Decking
GHC
Commits
a5dc9cda
Commit
a5dc9cda
authored
Feb 05, 1999
by
simonm
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[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
Showing
9 changed files
with
23 additions
and
36 deletions
+23
-36
ghc/includes/ClosureTypes.h
ghc/includes/ClosureTypes.h
+11
-12
ghc/includes/InfoTables.h
ghc/includes/InfoTables.h
+1
-4
ghc/includes/PrimOps.h
ghc/includes/PrimOps.h
+2
-3
ghc/includes/StgMiscClosures.h
ghc/includes/StgMiscClosures.h
+1
-3
ghc/rts/DebugProf.c
ghc/rts/DebugProf.c
+1
-3
ghc/rts/Evaluator.c
ghc/rts/Evaluator.c
+3
-3
ghc/rts/GC.c
ghc/rts/GC.c
+1
-4
ghc/rts/PrimOps.hc
ghc/rts/PrimOps.hc
+2
-2
ghc/rts/StgMiscClosures.hc
ghc/rts/StgMiscClosures.hc
+1
-2
No files found.
ghc/includes/ClosureTypes.h
View file @
a5dc9cda
/* ----------------------------------------------------------------------------
* $Id: ClosureTypes.h,v 1.
7 1999/01/26 16:16:19
simonm Exp $
* $Id: ClosureTypes.h,v 1.
8 1999/02/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 12:41:32 sof
Exp $
* $Id: InfoTables.h,v 1.
9 1999/02/05 15: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/02 14:19:49
simonm Exp $
* $Id: PrimOps.h,v 1.1
5 1999/02/05 15: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/01 18:05:31
simonm Exp $
* $Id: StgMiscClosures.h,v 1.
8 1999/02/05 15: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/01/15 17:57:05
simonm Exp $
* $Id: DebugProf.c,v 1.
5 1999/02/05 15:25:04
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:29:21
$
* $Revision: 1.
7
$
* $Date: 1999/02/05 1
5:25: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 14:49:22
simonm Exp $
* $Id: GC.c,v 1.2
6 1999/02/05 15: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/02 14:17:05
simonm Exp $
* $Id: PrimOps.hc,v 1.1
2 1999/02/05 15:25:09
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/02 14:21:32
simonm Exp $
* $Id: StgMiscClosures.hc,v 1.1
2 1999/02/05 15:25: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
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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