diff options
Diffstat (limited to 'bytecode.pl')
| -rw-r--r-- | bytecode.pl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/bytecode.pl b/bytecode.pl index d7532136b8..2423e3c93a 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -220,13 +220,14 @@ print BYTERUN_H <<'EOT'; EOT printf BYTERUN_H <<'EOT', scalar(@specialsv); -EXT SV * specialsv_list[%d] -#ifdef DOINIT +EXT SV * specialsv_list[%d]; +#define INIT_SPECIALSV_LIST STMT_START { \ EOT -print BYTERUN_H "= { ", join(", ", @specialsv), " }\n"; +for ($i = 0; $i < @specialsv; $i++) { + print BYTERUN_H "specialsv_list[$i] = $specialsv[$i]; \\\n"; +} print BYTERUN_H <<'EOT'; -#endif /* DOINIT */ -; +} STMT_END EOT # |