diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-22 16:01:48 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-09-22 16:01:48 +0000 |
| commit | b83535cb553b94cd457aaceadbc320b293a81b7c (patch) | |
| tree | fcdecfade8ccfb2652c468f025c4bc3a32791f49 /perl.h | |
| parent | d9f997d712a9ca9f2b66409f2920290ddaf904c3 (diff) | |
| download | perl-b83535cb553b94cd457aaceadbc320b293a81b7c.tar.gz | |
runops becomes a funtion pointer and sv_bless3 created
to avoid pointer forgery with '~'-magic.
p4raw-id: //depot/perl@68
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -1314,8 +1314,10 @@ typedef Sighandler_t Sigsave_t; # endif # endif # define PAD_SV(po) pad_sv(po) +# define RUNOPS_DEFAULT runops_debug #else # define PAD_SV(po) curpad[po] +# define RUNOPS_DEFAULT runops_standard #endif /****************/ @@ -1392,6 +1394,7 @@ EXT OP * opsave; /* save current op register across longjmps */ #else EXT OP * op; /* current op--when not in a global register */ #endif +EXT int (*runops) _((void)) INIT(RUNOPS_DEFAULT); EXT I32 * scopestack; /* blocks we've entered */ EXT I32 scopestack_ix; EXT I32 scopestack_max; |