commit a7e6f7ba35a65bec295052fe8b394a9580c58b20
author Brian Paul <brian.paul@tungstengraphics.com> Tue Jan 13 16:17:21 2004 +0000
committer Brian Paul <brian.paul@tungstengraphics.com> Tue Jan 13 16:17:21 2004 +0000
tree ab811a62f45b37bed9462545f6e7728edda486ab
parent 7a28156666f73a4e89354bd06acecaa6bfb8f9f4

exercise glDeleteProgramsARB

progs/demos/arbfplight.c

diff --git a/progs/demos/arbfplight.c b/progs/demos/arbfplight.c
index d0b6bc9..f9112a3 100644
--- a/progs/demos/arbfplight.c
+++ b/progs/demos/arbfplight.c
@@ -34,6 +34,7 @@
 static PFNGLPROGRAMSTRINGARBPROC glProgramStringARB_func;
 static PFNGLBINDPROGRAMARBPROC glBindProgramARB_func;
 static PFNGLISPROGRAMARBPROC glIsProgramARB_func;
+static PFNGLDELETEPROGRAMSARBPROC glDeleteProgramsARB_func;
 
 /* These must match the indexes used in the fragment program */
 #define DIFFUSE 1
@@ -128,6 +129,8 @@
          }
          break;
       case 27:
+         glDeleteProgramsARB_func(1, &VertProg);
+         glDeleteProgramsARB_func(1, &FragProg);
          exit(0);
          break;
    }
@@ -261,6 +264,9 @@
    glIsProgramARB_func = (PFNGLISPROGRAMARBPROC) glutGetProcAddress("glIsProgramARB");
    assert(glIsProgramARB_func);
 
+   glDeleteProgramsARB_func = (PFNGLDELETEPROGRAMSARBPROC) glutGetProcAddress("glDeleteProgramsARB");
+   assert(glDeleteProgramsARB_func);
+
    /*
     * Fragment program
     */