diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-28 19:19:06 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-30 07:45:09 +0000 |
| commit | 5d7488b2fd9fa6515201f39bec25777d9fccd7db (patch) | |
| tree | a657f5ce875a7991aff4b680574bdb785fc5f34a /regcomp.c | |
| parent | 0b4b7f425bbb7f4f6f4a885d16efb0978cf3643f (diff) | |
| download | perl-5d7488b2fd9fa6515201f39bec25777d9fccd7db.tar.gz | |
[PATCH] Minor warning squashings
Date: Sun, 29 May 2005 00:19:06 -0500
Message-Id: <740ea3aca85400c6d03e945323badad4@petdance.com>
Subject: [PATCH] Consting in Opcode.xs
From: Andy Lester <andy@petdance.com>
Date: Sun, 29 May 2005 11:23:50 -0500
Message-ID: <20050529162350.GA13965@petdance.com>
Subject: [PATCH] consting attrs.xs
From: Andy Lester <andy@petdance.com>
Date: Sun, 29 May 2005 14:15:46 -0500
Message-ID: <20050529191546.GA15581@petdance.com>
Subject: [PATCH] consting B.xs
From: Andy Lester <andy@petdance.com>
Date: Sun, 29 May 2005 15:09:24 -0500
Message-ID: <20050529200924.GA15873@petdance.com>
p4raw-id: //depot/perl@24622
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 11 |
1 files changed, 7 insertions, 4 deletions
@@ -935,7 +935,7 @@ S_make_trie(pTHX_ RExC_state_t *pRExC_state, regnode *startbranch, regnode *firs DEBUG_TRIE_COMPILE_r( PerlIO_printf( Perl_debug_log, "TRIE(%s): W:%d C:%d Uq:%d \n", ( trie->widecharmap ? "UTF8" : "NATIVE" ), trie->wordcount, - trie->charcount, trie->uniquecharcount ) + (int)trie->charcount, trie->uniquecharcount ) ); @@ -1414,7 +1414,9 @@ S_make_trie(pTHX_ RExC_state_t *pRExC_state, regnode *startbranch, regnode *firs DEBUG_TRIE_COMPILE_MORE_r( PerlIO_printf( Perl_debug_log, " Alloc: %d Orig: %"IVdf" elements, Final:%"IVdf". Savings of %%%5.2f\n", - ( ( trie->charcount + 1 ) * trie->uniquecharcount + 1 ), (IV)next_alloc, (IV)pos, + (int)( ( trie->charcount + 1 ) * trie->uniquecharcount + 1 ), + (IV)next_alloc, + (IV)pos, ( ( next_alloc - pos ) * 100 ) / (double)next_alloc ); ); @@ -5717,9 +5719,10 @@ S_dumpuntil(pTHX_ regnode *start, regnode *node, regnode *last, SV* sv, I32 l) I32 word_idx; PerlIO_printf(Perl_debug_log, "%*s[Words:%d Chars Stored:%d Unique Chars:%d States:%"IVdf"%s]\n", - (int)(2*(l+3)), "", + (int)(2*(l+3)), + "", trie->wordcount, - trie->charcount, + (int)trie->charcount, trie->uniquecharcount, (IV)trie->laststate-1, node->flags ? " EVAL mode" : ""); |