diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-26 03:56:19 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-26 03:56:19 +0000 |
commit | d613ef02e4bf2ccbbac161910d879e49ce35ecd8 (patch) | |
tree | 0645273db99be98d62780677bee79cbceb8d8992 /byterun.c | |
parent | f1c0db8dbc906cad6c85874be33c7969497df1cd (diff) | |
download | perl-d613ef02e4bf2ccbbac161910d879e49ce35ecd8.tar.gz |
[win32] various cleanups so that B can be built as "just another extension"
- export symbols needed for building B
- bset_obj_store() is needed by byterun(), so define it there instead
of at B.xs, and export it
- freadpv() is only used in B.xs, so move it there
- byte*.h are now included by perl.h
- regenerate embed*.h
p4raw-id: //depot/win32/perl@589
Diffstat (limited to 'byterun.c')
-rw-r--r-- | byterun.c | 16 |
1 files changed, 14 insertions, 2 deletions
@@ -11,8 +11,20 @@ #include "EXTERN.h" #include "perl.h" -#include "bytecode.h" -#include "byterun.h" + +void * +bset_obj_store(void *obj, I32 ix) +{ + if (ix > obj_list_fill) { + if (obj_list_fill == -1) + New(666, obj_list, ix + 1, void*); + else + Renew(obj_list, ix + 1, void*); + obj_list_fill = ix; + } + obj_list[ix] = obj; + return obj; +} #ifdef INDIRECT_BGET_MACROS void byterun(struct bytestream bs) |