0
|
1 module dmd.TryFinallyStatement;
|
|
2
|
114
|
3 import dmd.common;
|
0
|
4 import dmd.Statement;
|
|
5 import dmd.Loc;
|
|
6 import dmd.OutBuffer;
|
|
7 import dmd.HdrGenState;
|
|
8 import dmd.Scope;
|
|
9 import dmd.InlineScanState;
|
|
10 import dmd.CompoundStatement;
|
|
11 import dmd.IRState;
|
|
12 import dmd.BE;
|
|
13
|
|
14 import dmd.backend.block;
|
|
15 import dmd.backend.Blockx;
|
|
16 import dmd.backend.BC;
|
|
17 import dmd.backend.Util;
|
|
18
|
|
19 import dmd.codegen.Util;
|
|
20
|
|
21 class TryFinallyStatement : Statement
|
|
22 {
|
|
23 Statement body_;
|
|
24 Statement finalbody;
|
|
25
|
|
26 this(Loc loc, Statement body_, Statement finalbody)
|
|
27 {
|
|
28 super(loc);
|
|
29 this.body_ = body_;
|
|
30 this.finalbody = finalbody;
|
|
31 }
|
|
32
|
72
|
33 override Statement syntaxCopy()
|
0
|
34 {
|
|
35 assert(false);
|
|
36 }
|
|
37
|
72
|
38 override void toCBuffer(OutBuffer buf, HdrGenState* hgs)
|
0
|
39 {
|
|
40 assert(false);
|
|
41 }
|
|
42
|
72
|
43 override Statement semantic(Scope sc)
|
0
|
44 {
|
|
45 //printf("TryFinallyStatement::semantic()\n");
|
|
46 body_ = body_.semantic(sc);
|
|
47 sc = sc.push();
|
|
48 sc.tf = this;
|
|
49 sc.sbreak = null;
|
|
50 sc.scontinue = null; // no break or continue out of finally block
|
|
51 finalbody = finalbody.semantic(sc);
|
|
52 sc.pop();
|
|
53 if (!body_)
|
|
54 return finalbody;
|
|
55 if (!finalbody)
|
|
56 return body_;
|
|
57 if (body_.blockExit() == BE.BEfallthru)
|
|
58 {
|
|
59 Statement s = new CompoundStatement(loc, body_, finalbody);
|
|
60 return s;
|
|
61 }
|
|
62 return this;
|
|
63 }
|
|
64
|
72
|
65 override bool hasBreak()
|
0
|
66 {
|
|
67 assert(false);
|
|
68 }
|
|
69
|
72
|
70 override bool hasContinue()
|
0
|
71 {
|
|
72 assert(false);
|
|
73 }
|
|
74
|
72
|
75 override bool usesEH()
|
0
|
76 {
|
|
77 assert(false);
|
|
78 }
|
|
79
|
72
|
80 override BE blockExit()
|
0
|
81 {
|
|
82 if (body_)
|
|
83 return body_.blockExit();
|
|
84 return BE.BEfallthru;
|
|
85 }
|
|
86
|
72
|
87 override Statement inlineScan(InlineScanState* iss)
|
0
|
88 {
|
|
89 if (body_)
|
|
90 body_ = body_.inlineScan(iss);
|
|
91 if (finalbody)
|
|
92 finalbody = finalbody.inlineScan(iss);
|
|
93 return this;
|
|
94 }
|
|
95
|
|
96 /****************************************
|
|
97 * A try-finally statement.
|
|
98 * Builds the following:
|
|
99 * _try
|
|
100 * block
|
|
101 * _finally
|
|
102 * finalbody
|
|
103 * _ret
|
|
104 */
|
72
|
105 override void toIR(IRState* irs)
|
0
|
106 {
|
|
107 //printf("TryFinallyStatement.toIR()\n");
|
|
108 Blockx* blx = irs.blx;
|
|
109
|
|
110 version (SEH) {
|
|
111 nteh_declarvars(blx);
|
|
112 }
|
|
113
|
|
114 block* tryblock = block_goto(blx, BCgoto, null);
|
|
115
|
|
116 int previndex = blx.scope_index;
|
|
117 tryblock.Blast_index = previndex;
|
|
118 tryblock.Bscope_index = blx.next_index++;
|
|
119 blx.scope_index = tryblock.Bscope_index;
|
|
120
|
|
121 // Current scope index
|
|
122 setScopeIndex(blx,tryblock,tryblock.Bscope_index);
|
|
123
|
|
124 blx.tryblock = tryblock;
|
|
125 block_goto(blx,BC_try,null);
|
|
126
|
|
127 IRState bodyirs = IRState(irs, this);
|
|
128 block* breakblock = block_calloc(blx);
|
|
129 block* contblock = block_calloc(blx);
|
|
130
|
|
131 if (body_)
|
|
132 body_.toIR(&bodyirs);
|
|
133 blx.tryblock = tryblock.Btry; // back to previous tryblock
|
|
134
|
|
135 setScopeIndex(blx,blx.curblock,previndex);
|
|
136 blx.scope_index = previndex;
|
|
137
|
|
138 block_goto(blx,BCgoto, breakblock);
|
|
139 block* finallyblock = block_goto(blx,BCgoto,contblock);
|
|
140
|
|
141 list_append(&tryblock.Bsucc,finallyblock);
|
|
142
|
|
143 block_goto(blx,BC_finally,null);
|
|
144
|
|
145 IRState finallyState = IRState(irs, this);
|
|
146 breakblock = block_calloc(blx);
|
|
147 contblock = block_calloc(blx);
|
|
148
|
|
149 setScopeIndex(blx, blx.curblock, previndex);
|
|
150 if (finalbody)
|
|
151 finalbody.toIR(&finallyState);
|
|
152 block_goto(blx, BCgoto, contblock);
|
|
153 block_goto(blx, BCgoto, breakblock);
|
|
154
|
|
155 block* retblock = blx.curblock;
|
|
156 block_next(blx,BC_ret,null);
|
|
157
|
|
158 list_append(&finallyblock.Bsucc, blx.curblock);
|
|
159 list_append(&retblock.Bsucc, blx.curblock);
|
|
160 }
|
72
|
161 }
|