X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=docs%2Frts%2Fclosure.ps;fp=docs%2Frts%2Fclosure.ps;h=241bf9b4044aee2c44389cfd74bf38281981390c;hb=0065d5ab628975892cea1ec7303f968c3338cbe1;hp=0000000000000000000000000000000000000000;hpb=28a464a75e14cece5db40f2765a29348273ff2d2;p=ghc-hetmet.git

diff --git a/docs/rts/closure.ps b/docs/rts/closure.ps
new file mode 100644
index 0000000..241bf9b
--- /dev/null
+++ b/docs/rts/closure.ps
@@ -0,0 +1,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