Fix validate: -Werror bug in patch "Replacing copyins and copyouts..."
[ghc-hetmet.git] / docs / rts / closure.ps
1 %!
2 %%Title: closure.fig
3 %%Creator: fig2dev
4 %%CreationDate: Wed May 28 08:22:23 1997
5 %%For: sigbjorn@lassi (Sigbjorn Finne,,,)
6 %%Pages: 0
7 %%BoundingBox: 0 0 259 171
8 %%EndComments
9 /$F2psDict 32 dict def 
10 $F2psDict begin
11         $F2psDict /mtrx matrix put
12
13  /DrawEllipse {
14         /endangle exch def
15         /startangle exch def
16         /yrad exch def
17         /xrad exch def
18         /y exch def
19         /x exch def
20         /savematrix mtrx currentmatrix def
21         x y translate xrad yrad scale 0 0 1 startangle endangle arc
22         savematrix setmatrix
23         } def newpath 0 0 0 0 0 1 DrawEllipse stroke
24
25         end
26         /$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def
27         /$F2psEnd {$F2psEnteredState restore end} def
28         %%EndProlog
29
30 $F2psBegin
31 1 setlinecap 1 setlinejoin
32 -18 18 translate
33 0.000000 171.000000 translate 0.900 -0.900 scale
34 1.000 setlinewidth
35 % Ellipse
36 newpath 57 47 3 3 0 360 DrawEllipse gsave  0.000 setgray fill grestore stroke
37 % Polyline
38 newpath 57 48 moveto 57 92 lineto 88 92 lineto  stroke
39 newpath 80.000 90.000 moveto 88.000 92.000 lineto 80.000 94.000 lineto stroke
40 % Polyline
41 newpath 184 31 moveto 184 57 lineto  stroke
42 % Polyline
43 newpath 260 31 moveto 298 31 lineto 298 57 lineto 260 57 lineto  stroke
44         [1 3.000000] 0 setdash
45 % Polyline
46 newpath 209 31 moveto 260 31 lineto  stroke
47         [] 0 setdash
48         [1 3.000000] 0 setdash
49 % Polyline
50 newpath 209 57 moveto 260 57 lineto  stroke
51         [] 0 setdash
52 % Polyline
53 newpath 158 57 moveto 209 57 lineto  stroke
54 % Polyline
55 newpath 158 31 moveto 209 31 lineto  stroke
56         [1 3.000000] 0 setdash
57 % Polyline
58 newpath 107 57 moveto 158 57 lineto  stroke
59         [] 0 setdash
60         [1 3.000000] 0 setdash
61 % Polyline
62 newpath 107 31 moveto 158 31 lineto  stroke
63         [] 0 setdash
64 % Polyline
65 newpath 107 31 moveto 31 31 lineto 31 57 lineto 107 57 lineto  stroke
66 % Polyline
67 newpath 95 31 moveto 95 57 lineto  stroke
68 % Polyline
69 newpath 19 19 moveto 307 19 lineto 307 209 lineto 19 209 lineto closepath  stroke
70 % Polyline
71 newpath 91 98 moveto 156 98 lineto  stroke
72 % Polyline
73 newpath 91 113 moveto 156 113 lineto  stroke
74 % Polyline
75 newpath 92 129 moveto 156 129 lineto  stroke
76 % Polyline
77 newpath 124 105 moveto 206 105 lineto  stroke
78 newpath 198.000 103.000 moveto 206.000 105.000 lineto 198.000 107.000 lineto stroke
79 % Polyline
80 newpath 91 82 moveto 155 82 lineto 155 147 lineto 91 147 lineto closepath  stroke
81 % Polyline
82 newpath 124 88 moveto 206 88 lineto  stroke
83 newpath 198.000 86.000 moveto 206.000 88.000 lineto 198.000 90.000 lineto stroke
84 % Polyline
85 newpath 282 167 moveto 282 112 lineto 211 112 lineto 211 167 lineto closepath  stroke
86 % Polyline
87 newpath 125 138 moveto 125 188 lineto 153 188 lineto  stroke
88 newpath 145.000 186.000 moveto 153.000 188.000 lineto 145.000 190.000 lineto stroke
89 /Times-Roman findfont 8.000 scalefont setfont
90 107 77 moveto 
91 1 -1 scale
92 (Info table) gsave  0.000 rotate show grestore 1 -1 scale
93 /Times-Roman findfont 8.000 scalefont setfont
94 104 48 moveto 
95 1 -1 scale
96 (Pointer words) gsave  0.000 rotate show grestore 1 -1 scale
97 /Times-Roman findfont 8.000 scalefont setfont
98 209 48 moveto 
99 1 -1 scale
100 (Non-pointer words) gsave  0.000 rotate show grestore 1 -1 scale
101 /Times-Roman findfont 8.000 scalefont setfont
102 37 41 moveto 
103 1 -1 scale
104 (Info pointer) gsave  0.000 rotate show grestore 1 -1 scale
105 /Times-Roman findfont 8.000 scalefont setfont
106 99 124 moveto 
107 1 -1 scale
108 (Constructor tag) gsave  0.000 rotate show grestore 1 -1 scale
109 /Times-Roman findfont 8.000 scalefont setfont
110 215 154 moveto 
111 1 -1 scale
112 (Size and shape info) gsave  0.000 rotate show grestore 1 -1 scale
113 /Times-Roman findfont 8.000 scalefont setfont
114 232 163 moveto 
115 1 -1 scale
116 (for GC) gsave  0.000 rotate show grestore 1 -1 scale
117 /Times-Roman findfont 8.000 scalefont setfont
118 156 191 moveto 
119 1 -1 scale
120 (Update code) gsave  0.000 rotate show grestore 1 -1 scale
121 /Times-Roman findfont 8.000 scalefont setfont
122 213 108 moveto 
123 1 -1 scale
124 (Representation table) gsave  0.000 rotate show grestore 1 -1 scale
125 /Times-Roman findfont 8.000 scalefont setfont
126 213 91 moveto 
127 1 -1 scale
128 (Entry code) gsave  0.000 rotate show grestore 1 -1 scale
129 $F2psEnd