Exemple #1
0
void f(void const *s, int c, unsigned long n)
{
  __e_acsl_store_block((void *)(& s),(size_t)8);
  unsigned char const *p = (unsigned char const *)s;
  __e_acsl_store_block((void *)(& p),(size_t)8);
  __e_acsl_full_init((void *)(& p));
  /*@ assert p - (unsigned char const *)s ≡ n - n; */
  {
    __e_acsl_mpz_t __gen_e_acsl_;
    __e_acsl_mpz_t __gen_e_acsl_n;
    __e_acsl_mpz_t __gen_e_acsl_sub;
    int __gen_e_acsl_eq;
    __gmpz_init_set_ui(__gen_e_acsl_,p - (unsigned char const *)s);
    __gmpz_init_set_ui(__gen_e_acsl_n,n);
    __gmpz_init(__gen_e_acsl_sub);
    __gmpz_sub(__gen_e_acsl_sub,
               (__e_acsl_mpz_struct const *)(__gen_e_acsl_n),
               (__e_acsl_mpz_struct const *)(__gen_e_acsl_n));
    __gen_e_acsl_eq = __gmpz_cmp((__e_acsl_mpz_struct const *)(__gen_e_acsl_),
                                 (__e_acsl_mpz_struct const *)(__gen_e_acsl_sub));
    __e_acsl_assert(__gen_e_acsl_eq == 0,(char *)"Assertion",(char *)"f",
                    (char *)"p - (unsigned char const *)s == n - n",16);
    __gmpz_clear(__gen_e_acsl_);
    __gmpz_clear(__gen_e_acsl_n);
    __gmpz_clear(__gen_e_acsl_sub);
  }
  /*@ assert p - (unsigned char const *)s ≡ 0; */
  __e_acsl_assert(p - (unsigned char const *)s == 0UL,(char *)"Assertion",
                  (char *)"f",(char *)"p - (unsigned char const *)s == 0",17);
  __e_acsl_delete_block((void *)(& s));
  __e_acsl_delete_block((void *)(& p));
  return;
}
/*
 * Class:     GmpUtil
 * Method:    mpz_init
 * Signature: ()J
 */
JNIEXPORT jlong JNICALL Java_GmpUtil_mpz_1init
  (JNIEnv *x, jclass y)
{
  mpz_t *p = malloc( sizeof(__mpz_struct) );
  __gmpz_init( *p );

  return (jlong)p;
}