fix to build with pedantic flags
[AROS.git] / compiler / arossupport / freerastport.c
blob740940ce9457ac362acf702b23acb96362b1a371
1 /*
2 Copyright © 1995-2013, The AROS Development Team. All rights reserved.
3 $Id$
5 Desc: AROS Graphics function FreeRastPort
6 Lang: english
7 */
9 #include <graphics/rastport.h>
10 #include <proto/exec.h>
12 /*****************************************************************************
14 NAME */
15 #include <graphics/rastport.h>
16 #include <proto/arossupport.h>
18 void FreeRastPort(
20 /* SYNOPSIS */
21 struct RastPort *rp)
23 /* FUNCTION
24 This frees a RastPort obtained with CloneRastPort() or
25 CreateRastPort().
27 INPUTS
28 rp - The result of CloneRastPort() or CreateRastPort().
30 RESULT
31 None.
33 NOTES
35 EXAMPLE
37 BUGS
39 SEE ALSO
40 CloneRastPort(), CreateRastPort()
42 INTERNALS
44 *****************************************************************************/
46 FreeVec(rp->RP_Extra);
48 FreeMem (rp, sizeof (struct RastPort));
50 } /* FreeRastPort */