From a7e6f7ba35a65bec295052fe8b394a9580c58b20 Mon Sep 17 00:00:00 2001
From: Brian Paul <brian.paul@tungstengraphics.com>
Date: Tue, 13 Jan 2004 16:17:21 +0000
Subject: [PATCH] exercise glDeleteProgramsARB

---
 progs/demos/arbfplight.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/progs/demos/arbfplight.c b/progs/demos/arbfplight.c
index d0b6bc95200..f9112a39f20 100644
--- a/progs/demos/arbfplight.c
+++ b/progs/demos/arbfplight.c
@@ -34,6 +34,7 @@ static PFNGLGENPROGRAMSARBPROC glGenProgramsARB_func;
 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 @@ static void Key( unsigned char key, int x, int y )
          }
          break;
       case 27:
+         glDeleteProgramsARB_func(1, &VertProg);
+         glDeleteProgramsARB_func(1, &FragProg);
          exit(0);
          break;
    }
@@ -261,6 +264,9 @@ static void Init( void )
    glIsProgramARB_func = (PFNGLISPROGRAMARBPROC) glutGetProcAddress("glIsProgramARB");
    assert(glIsProgramARB_func);
 
+   glDeleteProgramsARB_func = (PFNGLDELETEPROGRAMSARBPROC) glutGetProcAddress("glDeleteProgramsARB");
+   assert(glDeleteProgramsARB_func);
+
    /*
     * Fragment program
     */
-- 
2.11.0