| … | … | ||
|---|---|---|---|
| 174 | EOF | 174 | EOF |
| 175 | 175 | ||
| 176 | out_next $op; | 176 | out_next $op; |
| 177 | } | 177 | } |
| 178 | 178 | ||
| 179 | sub op_or { | ||
| 180 | my ($op) = @_; | ||
| 181 | |||
| 182 | $source .= <<EOF; | ||
| 183 | { | ||
| 184 | dSP; | ||
| 185 | |||
| 186 | if (!SvTRUE (TOPs)) | ||
| 187 | { | ||
| 188 | --SP; | ||
| 189 | PUTBACK; | ||
| 190 | nextop = (OP *)${$op->other}L; | ||
| 191 | goto op_${$op->other}; | ||
| 192 | } | ||
| 193 | } | ||
| 194 | EOF | ||
| 195 | |||
| 196 | out_next $op; | ||
| 197 | } | ||
| 198 | |||
| 179 | sub op_padsv { | 199 | sub op_padsv { |
| 180 | my ($op) = @_; | 200 | my ($op) = @_; |
| 181 | 201 | ||
| 182 | my $flags = $op->flags; | 202 | my $flags = $op->flags; |
| 183 | my $target = $op->targ; | 203 | my $target = $op->targ; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |