186d7f5d3SJohn Marino /* mpf_clears() -- Clear multiple mpf_t variables. 286d7f5d3SJohn Marino 386d7f5d3SJohn Marino Copyright 2009 Free Software Foundation, Inc. 486d7f5d3SJohn Marino 586d7f5d3SJohn Marino This file is part of the GNU MP Library. 686d7f5d3SJohn Marino 786d7f5d3SJohn Marino The GNU MP Library is free software; you can redistribute it and/or modify 886d7f5d3SJohn Marino it under the terms of the GNU Lesser General Public License as published by 986d7f5d3SJohn Marino the Free Software Foundation; either version 3 of the License, or (at your 1086d7f5d3SJohn Marino option) any later version. 1186d7f5d3SJohn Marino 1286d7f5d3SJohn Marino The GNU MP Library is distributed in the hope that it will be useful, but 1386d7f5d3SJohn Marino WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 1486d7f5d3SJohn Marino or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public 1586d7f5d3SJohn Marino License for more details. 1686d7f5d3SJohn Marino 1786d7f5d3SJohn Marino You should have received a copy of the GNU Lesser General Public License 1886d7f5d3SJohn Marino along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. */ 1986d7f5d3SJohn Marino 2086d7f5d3SJohn Marino #include "config.h" 2186d7f5d3SJohn Marino 2286d7f5d3SJohn Marino #if HAVE_STDARG 2386d7f5d3SJohn Marino #include <stdarg.h> 2486d7f5d3SJohn Marino #else 2586d7f5d3SJohn Marino #include <varargs.h> 2686d7f5d3SJohn Marino #endif 2786d7f5d3SJohn Marino 2886d7f5d3SJohn Marino #include <stdio.h> /* for NULL */ 2986d7f5d3SJohn Marino #include "gmp.h" 3086d7f5d3SJohn Marino #include "gmp-impl.h" 3186d7f5d3SJohn Marino 3286d7f5d3SJohn Marino void 3386d7f5d3SJohn Marino #if HAVE_STDARG mpf_clears(mpf_ptr x,...)3486d7f5d3SJohn Marinompf_clears (mpf_ptr x, ...) 3586d7f5d3SJohn Marino #else 3686d7f5d3SJohn Marino mpf_clears (va_alist) 3786d7f5d3SJohn Marino va_dcl 3886d7f5d3SJohn Marino #endif 3986d7f5d3SJohn Marino { 4086d7f5d3SJohn Marino va_list ap; 4186d7f5d3SJohn Marino 4286d7f5d3SJohn Marino #if HAVE_STDARG 4386d7f5d3SJohn Marino va_start (ap, x); 4486d7f5d3SJohn Marino #else 4586d7f5d3SJohn Marino mpf_ptr x; 4686d7f5d3SJohn Marino va_start (ap); 4786d7f5d3SJohn Marino x = va_arg (ap, mpf_ptr); 4886d7f5d3SJohn Marino #endif 4986d7f5d3SJohn Marino 5086d7f5d3SJohn Marino while (x != NULL) 5186d7f5d3SJohn Marino { 5286d7f5d3SJohn Marino mpf_clear (x); 5386d7f5d3SJohn Marino x = va_arg (ap, mpf_ptr); 5486d7f5d3SJohn Marino } 5586d7f5d3SJohn Marino va_end (ap); 5686d7f5d3SJohn Marino } 57