call Driver.ProgramStringNotify if a ati_fragment_shader changes and pick up the change in the r200 driver accordingly.

src/mesa/drivers/dri/r200/r200_vertprog.c

@@ -1205,6 +1205,9 @@ r200ProgramStringNotify(GLcontext *ctx, GLenum target, struct gl_program *prog)
       r200_translate_vertex_program(ctx, vp);
       rmesa->curr_vp_hw = NULL;
       break;
+   case GL_FRAGMENT_SHADER_ATI:
+      rmesa->afs_loaded = NULL;
+      break;
    }
    /* need this for tcl fallbacks */
    _tnl_program_string(ctx, target, prog);

src/mesa/shader/atifragshader.c

@@ -400,6 +400,8 @@ _mesa_EndFragmentShaderATI(void)
       }
    }
 #endif
+   if (ctx->Driver.ProgramStringNotify)
+      ctx->Driver.ProgramStringNotify( ctx, GL_FRAGMENT_SHADER_ATI, NULL );
 }
 
 void GLAPIENTRY