X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=platform%2Fgandr%2Ffunctions%2F_PDCLIB%2F_PDCLIB_freepages.c;h=6b13298551ebd20bcea3e9e0b77480a08196bcf4;hb=e1c526e9bad3f6e69391e94059096145390508d3;hp=c77687652e64de0739b74998a9f5a954fbd247e9;hpb=aacebf0b0209d7719b3cf34a022555fbcea924f3;p=pdclib

diff --git a/platform/gandr/functions/_PDCLIB/_PDCLIB_freepages.c b/platform/gandr/functions/_PDCLIB/_PDCLIB_freepages.c
index c776876..6b13298 100644
--- a/platform/gandr/functions/_PDCLIB/_PDCLIB_freepages.c
+++ b/platform/gandr/functions/_PDCLIB/_PDCLIB_freepages.c
@@ -1,5 +1,3 @@
-/* $Id$ */
-
 /* _PDCLIB_allocpages( int const )
 
    This file is part of the Public Domain C Library (PDCLib).
@@ -13,10 +11,15 @@
 #include <stddef.h>
 #include <_PDCLIB_glue.h>
 #include <errno.h>
+#include <gd_bal.h>
 
 void _PDCLIB_freepages( void * p, size_t n )
 {
-    return;
+    int rv = 0;
+    if((rv = gd_free_pages( p, n ))) {
+        perror("_PDCLIB_freepages");
+        abort();
+    }
 }
 
 #ifdef TEST