15  * along with this program; if not, write to the Free Software

    15  * along with this program; if not, write to the Free Software

    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

    17  *)

    17  *)

    18 

    18 

    19 {$INCLUDE "options.inc"}

    19 {$INCLUDE "options.inc"}

    20 

    21 

    21 unit uStore;

    22 unit uStore;

    22 interface

    23 interface

    23 uses sysutils, uConsts, SDLh, GLunit, uTypes;

    24 uses sysutils, uConsts, SDLh, GLunit, uTypes;

    24 

    25 

   434     LoadImage:= tmpsurf //Result

   435     LoadImage:= tmpsurf //Result

   435 end;

   436 end;

   436 

   437 

   437 function glLoadExtension(extension : shortstring) : boolean;

   438 function glLoadExtension(extension : shortstring) : boolean;

   438 begin

   439 begin

   440     extension:= extension; // avoid hint

   442     extension:= extension; // avoid hint

   441     glLoadExtension:= false;

   443     glLoadExtension:= false;

   442 {$IFDEF DEBUGFILE}

   444 {$IFDEF DEBUGFILE}

   443     AddFileLog('OpenGL - "' + extension + '" skipped')

   445     AddFileLog('OpenGL - "' + extension + '" skipped')

   444 {$ENDIF}

   446 {$ENDIF}