diff options
| author | LAUN Wolfgang <wolfgang.laun@alcatel.at> | 2004-01-16 13:29:26 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-01-16 13:29:26 +0000 |
| commit | a1b950687051c32e26de8681b0ed639ad32adfb4 (patch) | |
| tree | ad2e142c0c34b6254fe5625f74ecd9a87ada058a /proto.h | |
| parent | ad33f57d74879c2996a4b4d81b95694b3eb74e93 (diff) | |
| download | perl-a1b950687051c32e26de8681b0ed639ad32adfb4.tar.gz | |
format/write (version 2)
Message-ID: <DF27CDCBD2581D4B88431901094E4B4D02B0C4D3@attmsx1>
Fixes and additions to formats:
Improvement: NULL chars in picture line
Bugfix: C<@*> shown in output if not alone on a line
New feature: C<^*> for variable-width, one-line-at-a-time text
Improvement: Diagnostic on C<@#> and C<~~>
Bugfix: Segmentation fault on big numbers
Improvement (maybe): Truncation of numbers produces misleading output
Bugfix: "}" terminates format
Bugfix: Error when copying non-UTF to UTF (EBCDIC only)
p4raw-id: //depot/perl@22161
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1042,7 +1042,8 @@ STATIC void* S_docatch_body(pTHX); STATIC void* S_vdocatch_body(pTHX_ va_list args); #endif STATIC OP* S_dofindlabel(pTHX_ OP *o, char *label, OP **opstack, OP **oplimit); -STATIC void S_doparseform(pTHX_ SV *sv); +STATIC OP* S_doparseform(pTHX_ SV *sv); +STATIC bool S_num_overflow(NV value, I32 fldsize, I32 frcsize); STATIC I32 S_dopoptoeval(pTHX_ I32 startingblock); STATIC I32 S_dopoptolabel(pTHX_ char *label); STATIC I32 S_dopoptoloop(pTHX_ I32 startingblock); |