kc3-lang/kc3/libc3/ceiling.c

Tag - branch -callablemasterconfigurefnfractionsfractions-rebaselinuxratio-rebasev0.1- tag -v0.1.9v0.1.8v0.1.7v0.1.6v0.1.5v0.1.4v0.1.3v0.1.2v0.1.13v0.1.12v0.1.11v0.1.10v0.1.1v0.1.0v0HTTPd-v0.1.1HTTPd-v0.1.0

• Show log

  Commit

• Hash : 0dac4582
  Author : Thomas de Grivel
  Date : 2023-04-10T21:17:46
  

  fix ceiling_s64

Download

• libc3/ceiling.c

• /* c3
   * Copyright 2022,2023 kmx.io <contact@kmx.io>
   *
   * Permission is hereby granted to use this software granted the above
   * copyright notice and this permission paragraph are included in all
   * copies and substantial portions of this software.
   *
   * THIS SOFTWARE IS PROVIDED "AS-IS" WITHOUT ANY GUARANTEE OF
   * PURPOSE AND PERFORMANCE. IN NO EVENT WHATSOEVER SHALL THE
   * AUTHOR BE CONSIDERED LIABLE FOR THE USE AND PERFORMANCE OF
   * THIS SOFTWARE.
   */
  #include <assert.h>
  #include <err.h>
  #include "abs.h"
  #include "ceiling.h"
  #include "sign.h"
  
  #define DEF_CEILING_S(bits)                                            \
    s ## bits ceiling_s ## bits (s ## bits a, s ## bits b)               \
    {                                                                    \
      s ## bits result;                                                  \
      s ## bits sign;                                                    \
      sign = sign_s ## bits (a) * sign_s ## bits (b);                    \
      a = abs_s ## bits (a);                                             \
      b = abs_s ## bits (b);                                             \
      result = sign * (a / b + ((a % b) ? 1 : 0));                       \
      return result;                                                     \
    }
  
  #define DEF_CEILING_U(bits)                                            \
    u ## bits ceiling_u ## bits (u ## bits a, u ## bits b)               \
    {                                                                    \
      u ## bits result;                                                  \
      if (b == 0) {                                                      \
        assert(! "ceiling_u" # bits ": division by zero");               \
        errx(1, "ceiling_u" # bits ": division by zero");                \
        return 0;                                                        \
      }                                                                  \
      result = a / b + ((a % b) ? 1 : 0);                                \
      return result;                                                     \
    }
  
  DEF_CEILING_S(8)
  DEF_CEILING_S(16)
  DEF_CEILING_S(32)
  DEF_CEILING_S(64)
  DEF_CEILING_S(w)
  DEF_CEILING_U(8)
  DEF_CEILING_U(16)
  DEF_CEILING_U(32)
  DEF_CEILING_U(64)
  DEF_CEILING_U(w)
  

Download