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

diff --git a/platform/gandr/functions/_PDCLIB/_PDCLIB_allocpages.c b/platform/gandr/functions/_PDCLIB/_PDCLIB_allocpages.c
index bdcd525..02678ff 100644
--- a/platform/gandr/functions/_PDCLIB/_PDCLIB_allocpages.c
+++ b/platform/gandr/functions/_PDCLIB/_PDCLIB_allocpages.c
@@ -1,23 +1,26 @@
-/* $Id$ */
-
 /* _PDCLIB_allocpages( int const )
 
    This file is part of the Public Domain C Library (PDCLib).
    Permission is granted to use, modify, and / or redistribute at will.
 */
 
-/* This is a stub implementation of _PDCLIB_allocpages
-*/
-
 #include <stdint.h>
 #include <stddef.h>
 #include <_PDCLIB_glue.h>
 #include <errno.h>
+#include <gd_bal.h>
 
 void * _PDCLIB_allocpages( size_t n )
 {
-    errno = ENOTSUP;
-    return NULL;
+    void *p = NULL;
+    int rv = gd_alloc_pages( gd_loader_data, &p, n );
+
+    if (rv) {
+        errno = rv;
+        return NULL;
+    } else {
+        return p;
+    }
 }
 
 #ifdef TEST