source: trunk/essentials/dev-lang/perl/ext/ByteLoader/byterun.h@ 3280

Last change on this file since 3280 was 3181, checked in by bird, 19 years ago

perl 5.8.8

File size: 5.6 KB
Line 
1/* -*- buffer-read-only: t -*-
2 *
3 * Copyright (c) 1996-1999 Malcolm Beattie
4 *
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
7 *
8 */
9/*
10 * This file is autogenerated from bytecode.pl. Changes made here will be lost.
11 */
12struct byteloader_fdata {
13 SV *datasv;
14 int next_out;
15 int idx;
16};
17
18struct byteloader_state {
19 struct byteloader_fdata *bs_fdata;
20 SV *bs_sv;
21 void **bs_obj_list;
22 int bs_obj_list_fill;
23 int bs_ix;
24 XPV bs_pv;
25 int bs_iv_overflows;
26};
27
28int bl_getc(struct byteloader_fdata *);
29int bl_read(struct byteloader_fdata *, char *, size_t, size_t);
30extern int byterun(pTHX_ struct byteloader_state *);
31
32enum {
33 INSN_RET, /* 0 */