Attachment 54633 Details for Bug 82654 – cabsl.c

cabsl.c

cabsl.c (text/x-c++src), 1.53 KB, created by Steven G. Kargl on 2005-06-26 18:00:57 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Steven G. Kargl

Created: 2005-06-26 18:00:57 UTC

Size: 1.53 KB

patch

obsolete

>/*-
> * Copyright (c) 2005, Steven G. Kargl
> * All rights reserved.
> *
> * Redistribution and use in source and binary forms, with or without
> * modification, are permitted provided that the following conditions
> * are met:
> * 1. Redistributions of source code must retain the above copyright
> *    notice unmodified, this list of conditions, and the following
> *    disclaimer.
> * 2. Redistributions in binary form must reproduce the above copyright
> *    notice, this list of conditions and the following disclaimer in the
> *    documentation and/or other materials provided with the distribution.
> *
> * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
> * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
> * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
> * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
> * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
> * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
> * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
> * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
> * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
> * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
> */
>
>/*
> * Compute the absolute value of a long double complex argument via a
> * call to hypotl().
> */
>
>#include <complex.h>
>#include <math.h>
>
>long double cabsl(long double complex z) {
>
>	return hypotl(creall(z), cimagl(z));
>}

Actions: View

Attachments on bug 82654: 54631 | 54632 | 54633 | 54634 | 54635 | 54636