Mercurial > mxe-octave
view src/build-msvctools/math/round_generic.c @ 7244:1448afad6165 default tip @
HDF5: Update to 1.14.3
* src/hdf5.mk: Update version and checksum. Remove configure flags that no
longer exist. Add configure flags to override erroneous test results. Remove
copying pre-generated files that is no longer needed.
* src/mingw-hdf5-1.patch: Remove patch. Cross-compilation is working now with
the upstream build system.
* dist-files.mk: Remove deleted file from list.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Fri, 07 Jun 2024 23:31:25 +0200 |
parents | f8299bb6c872 |
children |
line wrap: on
line source
/* * round_generic.c * * $Id: round_generic.c,v 1.1 2008/06/03 18:42:21 keithmarshall Exp $ * * Provides a generic implementation for the `round()', `roundf()' * and `roundl()' functions; compile with `-D FUNCTION=name', with * `name' set to each of these three in turn, to create separate * object files for each of the three functions. * * Written by Keith Marshall <keithmarshall@users.sourceforge.net> * * This is free software. You may redistribute and/or modify it as you * see fit, without restriction of copyright. * * This software is provided "as is", in the hope that it may be useful, * but WITHOUT WARRANTY OF ANY KIND, not even any implied warranty of * MERCHANTABILITY, nor of FITNESS FOR ANY PARTICULAR PURPOSE. At no * time will the author accept any form of liability for any damages, * however caused, resulting from the use of this software. * */ #ifndef FUNCTION /* * Normally specified with `-D FUNCTION=name', on the command line. * Valid FUNCTION names are `round', `roundf' and `roundl'; specifying * anything else will most likely cause a compilation error. If user * did not specify any FUNCTION name, default to `round'. */ #define FUNCTION round #endif #include "round_internal.h" /* Generic implementation. * The user is required to specify the FUNCTION name; * the RETURN_TYPE and INPUT_TYPE macros resolve to appropriate * type declarations, to match the selected FUNCTION prototype. */ RETURN_TYPE FUNCTION( INPUT_TYPE x ) { /* Round to nearest integer, away from zero for half-way. * * We split it with the `round_internal()' function in * a private header file, so that it may be shared by this, * `lround()' and `llround()' implementations. */ return isfinite( x ) ? round_internal( x ) : x; } /* $RCSfile: round_generic.c,v $$Revision: 1.1 $: end of file */