Revision 30

Date:
2007/09/14 19:35:32
Author:
dpavlin
Revision Log:
check length of decoded audio
Files:

Legend:

 
Added
 
Removed
 
Modified

  • amv.pl

     
    483 483 $pred_val = $origin;
    484 484 $step_idx = $index;
    485 485
    486 my $size = 0;
    487
    486 488 foreach my $b ( map { ord($_) } split(//, substr($data,8)) ) {
    487 489 print $au_fh pack 'n', adpcm_decode_sample( $b >> 4 );
    488 490 print $au_fh pack 'n', adpcm_decode_sample( $b & 15 );
    491 $size += 2;
    489 492 }
    493
    494 warn "length isn't corrent $bytes != $size" if $bytes != $size;
    490 495 }
    491 496
    492 497