/******************************************************************************

    wavfilt --- SSKFバンクによる8帯域分割と非線形量子化

      version 3.50                           by とご(電脳わ〜るど:DW0243)

    02/19/1995                                           "misc.c"

    miscellaneousのとおり、どのモジュールにも属さない小物を集めております。

 *****************************************************************************/

#include "common.h"

void *__calloc(size_t elnum,size_t size)
/* 特定の数値で初期化したメモリを確保する */
{
  void *ptr;
  if((ptr = calloc(elnum,size)) == NULL){
    puts("領域確保に失敗!!動作および変換結果は保証できません(^^;");
  }
  return ptr;
}

short limitter(int a)
/* signed intをsigned shortに詰める */
{
//    このリミッタルーチンは、普通に書くとなぜかバグってしまう(-_-ﾒ)
  if(a>>31){ /* 負数のとき */
    if((~a+1)>>15)a = -32767; /* 符号反転数が32767以上のとき */
  }else{
    if(a>>15)a = 32767; /* 32767以上のとき */
  }
  return (short)a;
}