🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #10434

Re: Getallen naar boven afronden

#10434
From: Philip Paeps
Date: Mon, 11 Mar 2002 16:03
45 lines
2667 bytes
JanC <usenet_spam@janc.cjb.net.invalid> wrote:
> Philip Paeps <philip@paeps.cx> wrote:

>> Als er geen ceil(3) equivalent bestaat, hoop ik toch voor de
>> gezondheid van de taal dat je aan de hand van de return code van
>> de functie kunt zien of het naar boven of onder gerond heeft, en
>> dan nog in een conditional desnoods +1 doen.  Heeft VB ?berhaupt
>> return codes? 

> Met mijn methode maakt dat toch niet uit?  Wat ik eigenlijk doe is m'n 
> eigen ceil() maken adhv de wel bestaande round().
> Misschien doet ceil() intern wel hetzelfde als wat ik doe...  ;-)

Precies:

__inline static const double ceil (double x)
{
  int rounding_mode, round_up;
  double value;

  __asm volatile ("fmove%.l %%fpcr,%0"
                  : "=dm" (rounding_mode)
                  : /* no inputs */ );
  round_up = rounding_mode | 0x30;
  __asm volatile ("fmove%.l %0,%%fpcr"
                  : /* no outputs */
                  : "dmi" (round_up));
  __asm volatile ("fint%.x %1,%0"
                  : "=f" (value)
                  : "f" (x));
  __asm volatile ("fmove%.l %0,%%fpcr"
                  : /* no outputs */
                  : "dmi" (rounding_mode));
  return value;
}

 - Philip

-- 
Philip Paeps                                                   philip@paeps.cx

  If you don't write to complain, you'll never receive
  your order.
  If you do write, you'll receive the merchandise before
  your angry letter reaches its destination.
Technical Details
Message-ID: <Zy4j8.249295$rt4.24063@afrodite.telenet-ops.be>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!news-x2.support.nl!newsfeeds.belnet.be!news.belnet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
References: <sIri8.245299$rt4.23941@afrodite.telenet-ops.be> <Xns91CD12CF2F8CDJanC@213.224.134.178> <1fGi8.246555$rt4.24046@afrodite.telenet-ops.be> <Xns91CE10B535FB3JanC@213.224.134.6> <OI%i8.249076$rt4.23842@afrodite.telenet-ops.be> <Xns91CE9BC87C9BCJanC@213.224.134.6>

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,474631146d31b334
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2002-03-11 08:03:06 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!supernews.com!news-x2.support.nl!newsfeeds.belnet.be!news.belnet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
From: Philip Paeps <philip@paeps.cx>
Subject: Re: Getallen naar boven afronden
Newsgroups: be.comp.programming
References: <sIri8.245299$rt4.23941@afrodite.telenet-ops.be> <Xns91CD12CF2F8CDJanC@213.224.134.178> <1fGi8.246555$rt4.24046@afrodite.telenet-ops.be> <Xns91CE10B535FB3JanC@213.224.134.6> <OI%i8.249076$rt4.23842@afrodite.telenet-ops.be> <Xns91CE9BC87C9BCJanC@213.224.134.6>
User-Agent: tin/1.5.12-20020227 ("Toxicity") (UNIX) (FreeBSD/4.5-STABLE (i386))
Lines: 45
Message-ID: <Zy4j8.249295$rt4.24063@afrodite.telenet-ops.be>
Date: Mon, 11 Mar 2002 16:03:05 GMT
NNTP-Posting-Host: 213.118.35.252
X-Complaints-To: abuse@pandora.be
X-Trace: afrodite.telenet-ops.be 1015862585 213.118.35.252 (Mon, 11 Mar 2002 17:03:05 MET)
NNTP-Posting-Date: Mon, 11 Mar 2002 17:03:05 MET
Organization: Telenet Internet