diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-20 16:39:38 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-20 16:39:38 +0000 |
| commit | 98b55637d580660d79fad229f9c059fcbf7985c2 (patch) | |
| tree | 421c4ca3a30b384c43fd108862692e2b63a6979e /bytecode.pl | |
| parent | 1853469bd7bc4f59baf47a0eb2f44b3553f0a805 (diff) | |
| download | perl-98b55637d580660d79fad229f9c059fcbf7985c2.tar.gz | |
[compiler] Win32 changes from Sarathy, tweaked slightly by me.
p4raw-id: //depot/perlext/Compiler@561
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 # |