summaryrefslogtreecommitdiff
path: root/ghc/docs/rts/closure.ps
blob: 241bf9b4044aee2c44389cfd74bf38281981390c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
%!
%%Title: closure.fig
%%Creator: fig2dev
%%CreationDate: Wed May 28 08:22:23 1997
%%For: sigbjorn@lassi (Sigbjorn Finne,,,)
%%Pages: 0
%%BoundingBox: 0 0 259 171
%%EndComments
/$F2psDict 32 dict def 
$F2psDict begin
	$F2psDict /mtrx matrix put

 /DrawEllipse {
	/endangle exch def
	/startangle exch def
	/yrad exch def
	/xrad exch def
	/y exch def
	/x exch def
	/savematrix mtrx currentmatrix def
	x y translate xrad yrad scale 0 0 1 startangle endangle arc
	savematrix setmatrix
	} def newpath 0 0 0 0 0 1 DrawEllipse stroke

	end
	/$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
	/$F2psEnd {$F2psEnteredState restore end} def
	%%EndProlog

$F2psBegin
1 setlinecap 1 setlinejoin
-18 18 translate
0.000000 171.000000 translate 0.900 -0.900 scale
1.000 setlinewidth
% Ellipse
newpath 57 47 3 3 0 360 DrawEllipse gsave  0.000 setgray fill grestore stroke
% Polyline
newpath 57 48 moveto 57 92 lineto 88 92 lineto  stroke
newpath 80.000 90.000 moveto 88.000 92.000 lineto 80.000 94.000 lineto stroke
% Polyline
newpath 184 31 moveto 184 57 lineto  stroke
% Polyline
newpath 260 31 moveto 298 31 lineto 298 57 lineto 260 57 lineto  stroke
	[1 3.000000] 0 setdash
% Polyline
newpath 209 31 moveto 260 31 lineto  stroke
	[] 0 setdash
	[1 3.000000] 0 setdash
% Polyline
newpath 209 57 moveto 260 57 lineto  stroke
	[] 0 setdash
% Polyline
newpath 158 57 moveto 209 57 lineto  stroke
% Polyline
newpath 158 31 moveto 209 31 lineto  stroke
	[1 3.000000] 0 setdash
% Polyline
newpath 107 57 moveto 158 57 lineto  stroke
	[] 0 setdash
	[1 3.000000] 0 setdash
% Polyline
newpath 107 31 moveto 158 31 lineto  stroke
	[] 0 setdash
% Polyline
newpath 107 31 moveto 31 31 lineto 31 57 lineto 107 57 lineto  stroke
% Polyline
newpath 95 31 moveto 95 57 lineto  stroke
% Polyline
newpath 19 19 moveto 307 19 lineto 307 209 lineto 19 209 lineto closepath  stroke
% Polyline
newpath 91 98 moveto 156 98 lineto  stroke
% Polyline
newpath 91 113 moveto 156 113 lineto  stroke
% Polyline
newpath 92 129 moveto 156 129 lineto  stroke
% Polyline
newpath 124 105 moveto 206 105 lineto  stroke
newpath 198.000 103.000 moveto 206.000 105.000 lineto 198.000 107.000 lineto stroke
% Polyline
newpath 91 82 moveto 155 82 lineto 155 147 lineto 91 147 lineto closepath  stroke
% Polyline
newpath 124 88 moveto 206 88 lineto  stroke
newpath 198.000 86.000 moveto 206.000 88.000 lineto 198.000 90.000 lineto stroke
% Polyline
newpath 282 167 moveto 282 112 lineto 211 112 lineto 211 167 lineto closepath  stroke
% Polyline
newpath 125 138 moveto 125 188 lineto 153 188 lineto  stroke
newpath 145.000 186.000 moveto 153.000 188.000 lineto 145.000 190.000 lineto stroke
/Times-Roman findfont 8.000 scalefont setfont
107 77 moveto 
1 -1 scale
(Info table) gsave  0.000 rotate show grestore 1 -1 scale
/Times-Roman findfont 8.000 scalefont setfont
104 48 moveto 
1 -1 scale
(Pointer words) gsave  0.000 rotate show grestore 1 -1 scale
/Times-Roman findfont 8.000 scalefont setfont
209 48 moveto 
1 -1 scale
(Non-pointer words) gsave  0.000 rotate show grestore 1 -1 scale
/Times-Roman findfont 8.000 scalefont setfont
37 41 moveto 
1 -1 scale
(Info pointer) gsave  0.000 rotate show grestore 1 -1 scale
/Times-Roman findfont 8.000 scalefont setfont
99 124 moveto 
1 -1 scale
(Constructor tag) gsave  0.000 rotate show grestore 1 -1 scale
/Times-Roman findfont 8.000 scalefont setfont
215 154 moveto 
1 -1 scale
(Size and shape info) gsave  0.000 rotate show grestore 1 -1 scale
/Times-Roman findfont 8.000 scalefont setfont
232 163 moveto 
1 -1 scale
(for GC) gsave  0.000 rotate show grestore 1 -1 scale
/Times-Roman findfont 8.000 scalefont setfont
156 191 moveto 
1 -1 scale
(Update code) gsave  0.000 rotate show grestore 1 -1 scale
/Times-Roman findfont 8.000 scalefont setfont
213 108 moveto 
1 -1 scale
(Representation table) gsave  0.000 rotate show grestore 1 -1 scale
/Times-Roman findfont 8.000 scalefont setfont
213 91 moveto 
1 -1 scale
(Entry code) gsave  0.000 rotate show grestore 1 -1 scale
$F2psEnd