Mercurial > hg-old > index.cgi
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 } |