comparison lwasm/lwasm.c @ 418:4b137a8cf32a

Implemented "branch points"
author lost@l-w.ca
date Tue, 10 Aug 2010 23:08:30 -0600
parents 1d69ed28f175
children 00924eeb2ec8
comparison
equal deleted inserted replaced
417:f792faf877bb 418:4b137a8cf32a
135 return NULL; 135 return NULL;
136 } 136 }
137 137
138 case lwasm_expr_nextbp: 138 case lwasm_expr_nextbp:
139 { 139 {
140 line_t *cl = ptr;
141 for (cl = cl -> next; cl; cl = cl -> next)
142 {
143 if (cl -> isbrpt)
144 break;
145 }
146 if (cl)
147 {
148 return lw_expr_copy(cl -> addr);
149 }
140 return NULL; 150 return NULL;
141 } 151 }
142 152
143 case lwasm_expr_prevbp: 153 case lwasm_expr_prevbp:
144 { 154 {
155 line_t *cl = ptr;
156 for (cl = cl -> prev; cl; cl = cl -> prev)
157 {
158 if (cl -> isbrpt)
159 break;
160 }
161 if (cl)
162 {
163 return lw_expr_copy(cl -> addr);
164 }
145 return NULL; 165 return NULL;
146 } 166 }
147 } 167 }
148 return NULL; 168 return NULL;
149 } 169 }