hedgewars/uRender.pas
changeset 15359 c117e17b90bc
parent 15184 e7d7fe9f20e1
child 15363 c5934cdeecb6
equal deleted inserted replaced
15358:b5e0a39856fd 15359: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);