| … | |
… | |
| 31 | my $LINK = "$Config{ld} $Config{ldflags} $Config{lddlflags} $Config{ccdlflags}"; |
31 | my $LINK = "$Config{ld} $Config{ldflags} $Config{lddlflags} $Config{ccdlflags}"; |
| 32 | my $LIBS = "$Config{libs}"; |
32 | my $LIBS = "$Config{libs}"; |
| 33 | my $_o = $Config{_o}; |
33 | my $_o = $Config{_o}; |
| 34 | my $_so = ".so"; |
34 | my $_so = ".so"; |
| 35 | |
35 | |
|
|
36 | # we don't need no steenking PIC on x86 |
|
|
37 | $COMPILE =~ s/-f(?:PIC|pic)//g |
|
|
38 | if $Config{archname} =~ /^(i[3456]86)-/; |
|
|
39 | |
| 36 | my $opt_assert = 1; |
40 | my $opt_assert = 0; |
| 37 | |
41 | |
| 38 | our $source; |
42 | our $source; |
| 39 | |
43 | |
| 40 | my @ops; |
44 | my @ops; |
| 41 | my $op; |
45 | my $op; |
| … | |
… | |
| 199 | $source .= " PUSHMARK (PL_stack_sp);\n"; |
203 | $source .= " PUSHMARK (PL_stack_sp);\n"; |
| 200 | |
204 | |
| 201 | out_next; |
205 | out_next; |
| 202 | } |
206 | } |
| 203 | |
207 | |
| 204 | if (0 && $Config{useithreads} ne "define") { |
208 | if ($Config{useithreads} ne "define") { |
| 205 | # disable optimisations on ithreads |
209 | # disable optimisations on ithreads |
| 206 | |
210 | |
| 207 | *op_const = sub { |
211 | *op_const = sub { |
| 208 | $source .= " { dSP; XPUSHs ((SV *)${$op->sv}L); PUTBACK; }\n"; |
212 | $source .= " { dSP; XPUSHs ((SV *)${$op->sv}L); PUTBACK; }\n"; |
| 209 | |
213 | |
| … | |
… | |
| 385 | out_next; |
389 | out_next; |
| 386 | } |
390 | } |
| 387 | |
391 | |
| 388 | sub op_grepstart { |
392 | sub op_grepstart { |
| 389 | out_callop; |
393 | out_callop; |
|
|
394 | $op = $op->next; |
| 390 | out_cond_jump $op->next->other; |
395 | out_cond_jump $op->other; |
| 391 | out_jump_next; |
396 | out_jump_next; |
| 392 | } |
397 | } |
| 393 | |
398 | |
| 394 | *op_mapstart = \&op_grepstart; |
399 | *op_mapstart = \&op_grepstart; |
| 395 | |
400 | |
