diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-06-26 19:28:41 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-06-29 06:01:35 +0000 |
| commit | b3ac6de7f0c7a63b73f1cf3ea9e371470f7d1cb0 (patch) | |
| tree | 564cec3756b2fdc36f8885a6017a9b0eed22dca1 /scope.h | |
| parent | dde527fc6256d3b4a78a8a6187a9b8048cc76da5 (diff) | |
| download | perl-b3ac6de7f0c7a63b73f1cf3ea9e371470f7d1cb0.tar.gz | |
added patch for overloading constants, made PERL_OBJECT-aware
Message-Id: <199806270328.XAA21088@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@1259
Diffstat (limited to 'scope.h')
| -rw-r--r-- | scope.h | 10 |
1 files changed, 9 insertions, 1 deletions
@@ -25,6 +25,7 @@ #define SAVEt_AELEM 24 #define SAVEt_HELEM 25 #define SAVEt_OP 26 +#define SAVEt_NOHINTS 27 #define SSCHECK(need) if (savestack_ix + need > savestack_max) savestack_grow() #define SSPUSHINT(i) (savestack[savestack_ix++].any_i32 = (I32)(i)) @@ -94,7 +95,14 @@ SSPUSHINT(SAVEt_STACK_POS); \ } STMT_END #define SAVEOP() save_op() - +#define SAVEHINTS() STMT_START { \ + if (hints & HINT_LOCALIZE_HH) \ + save_hints(); \ + else { \ + SSPUSHINT(hints); \ + SSPUSHINT(SAVEt_NOHINTS); \ + } \ + } STMT_END /* A jmpenv packages the state required to perform a proper non-local jump. * Note that there is a start_env initialized when perl starts, and top_env * points to this initially, so top_env should always be non-null. |