hedgewars/uRender.pas
changeset 15381 c117e17b90bc
parent 15205 e7d7fe9f20e1
child 15384 c5934cdeecb6
equal deleted inserted replaced
15380:b5e0a39856fd 15381:c117e17b90bc
  2183 {$ENDIF}
  2183 {$ENDIF}
  2184 end;
  2184 end;
  2185 
  2185 
  2186 procedure freeModule;
  2186 procedure freeModule;
  2187 begin
  2187 begin
       
  2188     if cOnlyStats then exit;
  2188 {$IFDEF GL2}
  2189 {$IFDEF GL2}
  2189     glDeleteProgram(shaderMain);
  2190     glDeleteProgram(shaderMain);
  2190     glDeleteProgram(shaderWater);
  2191     glDeleteProgram(shaderWater);
  2191     glDeleteBuffers(1, @vBuffer);
  2192     glDeleteBuffers(1, @vBuffer);
  2192     glDeleteBuffers(1, @tBuffer);
  2193     glDeleteBuffers(1, @tBuffer);