# HG changeset patch
# User sheepluva
# Date 1346419683 -7200
# Node ID 60b213e5ded34ddaa3358319269d09c35f869dbc
# Parent  10caa79d4a80b6d5dcb428e2fb5814cb09939245
use old approach for printing gl extentions for pas2c (less complex/no StrUtils dependencies)

diff -r 10caa79d4a80 -r 60b213e5ded3 hedgewars/uStore.pas
--- a/hedgewars/uStore.pas	Fri Aug 31 13:36:00 2012 +0200
+++ b/hedgewars/uStore.pas	Fri Aug 31 15:28:03 2012 +0200
@@ -21,7 +21,7 @@
 
 unit uStore;
 interface
-uses StrUtils, SysUtils, uConsts, SDLh, GLunit, uTypes, uLandTexture, uCaptions, uChat;
+uses {$IFNDEF PAS2C} StrUtils, {$ENDIF}SysUtils, uConsts, SDLh, GLunit, uTypes, uLandTexture, uCaptions, uChat;
 
 procedure initModule;
 procedure freeModule;
@@ -749,6 +749,7 @@
     AddFileLog('  |----- Number of auxiliary buffers: ' + inttostr(AuxBufNum));
 {$ENDIF}
     AddFileLog('  \----- Extensions: ');
+{$IFNDEF PAS2C}
     // fetch extentions and store them in string
     tmpstr := StrPas(PChar(glGetString(GL_EXTENSIONS)));
     tmpn := WordCount(tmpstr, [' ']);
@@ -766,8 +767,10 @@
         tmpint := tmpint + 3;
     end;
     until (tmpint > tmpn);
-    // doesn't seem to print >256 chars, also missing explicit PChar cast
-    // AddFileLogRaw(glGetString(GL_EXTENSIONS));
+{$ELSE}
+    // doesn't seem to print >256 chars
+    AddFileLogRaw(PChar(glGetString(GL_EXTENSIONS)));
+{$ENDIF}
     AddFileLog('');
 
     defaultFrame:= 0;