OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.17.0/] [newlib/] [libc/] [posix/] [regfree.c] - Blame information for rev 455

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 148 jeremybenn
/*-
2
 * Copyright (c) 1992, 1993, 1994 Henry Spencer.
3
 * Copyright (c) 1992, 1993, 1994
4
 *      The Regents of the University of California.  All rights reserved.
5
 *
6
 * This code is derived from software contributed to Berkeley by
7
 * Henry Spencer.
8
 *
9
 * Redistribution and use in source and binary forms, with or without
10
 * modification, are permitted provided that the following conditions
11
 * are met:
12
 * 1. Redistributions of source code must retain the above copyright
13
 *    notice, this list of conditions and the following disclaimer.
14
 * 2. Redistributions in binary form must reproduce the above copyright
15
 *    notice, this list of conditions and the following disclaimer in the
16
 *    documentation and/or other materials provided with the distribution.
17
 * 4. Neither the name of the University nor the names of its contributors
18
 *    may be used to endorse or promote products derived from this software
19
 *    without specific prior written permission.
20
 *
21
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31
 * SUCH DAMAGE.
32
 *
33
 *      @(#)regfree.c   8.3 (Berkeley) 3/20/94
34
 */
35
 
36
#ifndef _NO_REGEX
37
 
38
#if defined(LIBC_SCCS) && !defined(lint)
39
static char sccsid[] = "@(#)regfree.c   8.3 (Berkeley) 3/20/94";
40
#endif /* LIBC_SCCS and not lint */
41
#include <sys/cdefs.h>
42
 
43
#include <sys/types.h>
44
#include <stdio.h>
45
#include <stdlib.h>
46
#include <limits.h>
47
#include <regex.h>
48
 
49
#include "utils.h"
50
#include "regex2.h"
51
 
52
/*
53
 - regfree - free everything
54
 = extern void regfree(regex_t *);
55
 */
56
void
57
regfree(preg)
58
regex_t *preg;
59
{
60
        struct re_guts *g;
61
 
62
        if (preg->re_magic != MAGIC1)   /* oops */
63
                return;                 /* nice to complain, but hard */
64
 
65
        g = preg->re_g;
66
        if (g == NULL || g->magic != MAGIC2)    /* oops again */
67
                return;
68
        preg->re_magic = 0;              /* mark it invalid */
69
        g->magic = 0;                    /* mark it invalid */
70
 
71
        if (g->strip != NULL)
72
                free((char *)g->strip);
73
        if (g->sets != NULL)
74
                free((char *)g->sets);
75
        if (g->setbits != NULL)
76
                free((char *)g->setbits);
77
        if (g->must != NULL)
78
                free(g->must);
79
        if (g->charjump != NULL)
80
                free(&g->charjump[CHAR_MIN]);
81
        if (g->matchjump != NULL)
82
                free(g->matchjump);
83
        free((char *)g);
84
}
85
 
86
#endif /* !_NO_REGEX  */

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.