1  #include "config.h"
       2  #include "gcc-plugin.h"
       3  #include "system.h"
       4  #include "coretypes.h"
       5  #include "tree.h"
       6  
       7  int plugin_is_GPL_compatible;
       8  
       9  static void
      10  test_double_int_round_udiv (void)
      11  {
      12    double_int dmin = { 0, HOST_WIDE_INT_MIN };
      13    double_int dmax = { (unsigned HOST_WIDE_INT)-1, HOST_WIDE_INT_MAX };
      14    double_int dnegone = { (unsigned HOST_WIDE_INT)-1, -1 };
      15    double_int mod, div;
      16    div = dmin.udivmod (dnegone, ROUND_DIV_EXPR, &mod);
      17    if (div.low != 1 || div.high != 0
      18        || mod.low != 1 || mod.high != HOST_WIDE_INT_MIN)
      19      abort ();
      20    div = dmax.udivmod (dnegone, ROUND_DIV_EXPR, &mod);
      21    if (div.low != 0 || div.high != 0
      22        || mod.low != dmax.low || mod.high != dmax.high)
      23      abort ();
      24  }
      25  
      26  static void
      27  test_wide_int_round_sdiv (void)
      28  {
      29    if (wi::ne_p (wi::div_round (2, 3, SIGNED), 1))
      30      abort ();
      31    if (wi::ne_p (wi::div_round (1, 3, SIGNED), 0))
      32      abort ();
      33    if (wi::ne_p (wi::mod_round (2, 3, SIGNED), -1))
      34      abort ();
      35    if (wi::ne_p (wi::mod_round (1, 3, SIGNED), 1))
      36      abort ();
      37  }
      38  
      39  static void
      40  test_wide_int_mod_trunc (void)
      41  {
      42    for (unsigned int i = 1; i < MAX_BITSIZE_MODE_ANY_INT; ++i)
      43      {
      44        if (wi::smod_trunc (wi::lshift (1, i + 1) - 3,
      45  			  wi::lshift (1, i) - 1)
      46  	  != wi::lshift (1, i) - 2)
      47  	abort ();
      48        for (unsigned int base = 32; base <= MAX_BITSIZE_MODE_ANY_INT; base *= 2)
      49  	for (int bias = -1; bias <= 1; ++bias)
      50  	  {
      51  	    unsigned int precision = base + bias;
      52  	    if (i + 1 < precision && precision <= MAX_BITSIZE_MODE_ANY_INT)
      53  	      {
      54  		wide_int one = wi::uhwi (1, precision);
      55  		wide_int a = wi::lshift (one, i + 1) - 3;
      56  		wide_int b = wi::lshift (one, i) - 1;
      57  		wide_int c = wi::lshift (one, i) - 2;
      58  		if (wi::umod_trunc (a, b) != c)
      59  		  abort ();
      60  		if (wi::smod_trunc (a, b) != c)
      61  		  abort ();
      62  		if (wi::smod_trunc (-a, b) != -c)
      63  		  abort ();
      64  		if (wi::smod_trunc (a, -b) != c)
      65  		  abort ();
      66  	      }
      67  	  }
      68      }
      69  }
      70  
      71  int
      72  plugin_init (struct plugin_name_args *plugin_info,
      73  	     struct plugin_gcc_version *version)
      74  {
      75    test_double_int_round_udiv ();
      76    test_wide_int_round_sdiv ();
      77    test_wide_int_mod_trunc ();
      78    return 0;
      79  }