Mercurial > hg > octave-kai > gnulib-hg

annotate lib/itold.c @ 15809:6f74138bc272

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
float, math: add omitted file * lib/itold.c: Add file, required for yesterday's float change.
author Jim Meyering <meyering@redhat.com>
date Sat, 01 Oct 2011 14:34:09 +0200
parents
children 8250f2777afc
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
15809
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
1 /* Replacement for 'int' to 'long double' conversion routine.
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
2 Copyright (C) 2011 Free Software Foundation, Inc.
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
3 Written by Bruno Haible <bruno@clisp.org>, 2011.
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
4
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
5 This program is free software: you can redistribute it and/or modify
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
6 it under the terms of the GNU General Public License as published by
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
7 the Free Software Foundation; either version 3 of the License, or
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
8 (at your option) any later version.
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
9
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
10 This program is distributed in the hope that it will be useful,
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
13 GNU General Public License for more details.
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
14
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
15 You should have received a copy of the GNU General Public License
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
17
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
18 #include <config.h>
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
19
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
20 /* Specification. */
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
21 #include <float.h>
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
22
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
23 void
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
24 _Qp_itoq (long double *result, int a)
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
25 {
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
26 /* Convert from 'int' to 'double', then from 'double' to 'long double'. */
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
27 *result = (double) a;
6f74138bc272 float, math: add omitted file
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
28 }