diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-04-30 18:26:09 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 12:07:13 +0000 |
| commit | 25da4f389200e19df8aa50bcef9af9506f48ed2e (patch) | |
| tree | 65b30771e2788ce1648d3a92a6cb6ca63f48ca23 /perl.h | |
| parent | a1bd196e40598e773ccd679fc8778a94de7814af (diff) | |
| download | perl-25da4f389200e19df8aa50bcef9af9506f48ed2e.tar.gz | |
Self-consistent numeric conversion again
Message-Id: <199905010226.WAA19127@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@3378
Diffstat (limited to 'perl.h')
| -rw-r--r-- | perl.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -1652,6 +1652,11 @@ typedef I32 CHECKPOINT; #define U_V(what) (cast_uv((double)(what))) #endif +/* Used with UV/IV arguments: */ + /* XXXX: need to speed it up */ +#define CLUMP_2UV(iv) ((iv) < 0 ? 0 : (UV)(iv)) +#define CLUMP_2IV(uv) ((uv) > (UV)IV_MAX ? IV_MAX : (IV)(uv)) + struct Outrec { I32 o_lines; char *o_str; |