changeset 7637 | 60b213e5ded3 |
parent 7635 | 7a8b2f04c7dd |
child 7640 | e9e6b4d740f6 |
7636:10caa79d4a80 | 7637:60b213e5ded3 |
---|---|
19 {$INCLUDE "options.inc"} |
19 {$INCLUDE "options.inc"} |
20 {$IF GLunit = GL}{$DEFINE GLunit:=GL,GLext}{$ENDIF} |
20 {$IF GLunit = GL}{$DEFINE GLunit:=GL,GLext}{$ENDIF} |
21 |
21 |
22 unit uStore; |
22 unit uStore; |
23 interface |
23 interface |
24 uses StrUtils, SysUtils, uConsts, SDLh, GLunit, uTypes, uLandTexture, uCaptions, uChat; |
24 uses {$IFNDEF PAS2C} StrUtils, {$ENDIF}SysUtils, uConsts, SDLh, GLunit, uTypes, uLandTexture, uCaptions, uChat; |
25 |
25 |
26 procedure initModule; |
26 procedure initModule; |
27 procedure freeModule; |
27 procedure freeModule; |
28 |
28 |
29 procedure StoreLoad(reload: boolean); |
29 procedure StoreLoad(reload: boolean); |
747 {$IFDEF USE_VIDEO_RECORDING} |
747 {$IFDEF USE_VIDEO_RECORDING} |
748 glGetIntegerv(GL_AUX_BUFFERS, @AuxBufNum); |
748 glGetIntegerv(GL_AUX_BUFFERS, @AuxBufNum); |
749 AddFileLog(' |----- Number of auxiliary buffers: ' + inttostr(AuxBufNum)); |
749 AddFileLog(' |----- Number of auxiliary buffers: ' + inttostr(AuxBufNum)); |
750 {$ENDIF} |
750 {$ENDIF} |
751 AddFileLog(' \----- Extensions: '); |
751 AddFileLog(' \----- Extensions: '); |
752 {$IFNDEF PAS2C} |
|
752 // fetch extentions and store them in string |
753 // fetch extentions and store them in string |
753 tmpstr := StrPas(PChar(glGetString(GL_EXTENSIONS))); |
754 tmpstr := StrPas(PChar(glGetString(GL_EXTENSIONS))); |
754 tmpn := WordCount(tmpstr, [' ']); |
755 tmpn := WordCount(tmpstr, [' ']); |
755 tmpint := 1; |
756 tmpint := 1; |
756 |
757 |
764 ExtractWord(tmpint+2, tmpstr, [' ']) |
765 ExtractWord(tmpint+2, tmpstr, [' ']) |
765 )); |
766 )); |
766 tmpint := tmpint + 3; |
767 tmpint := tmpint + 3; |
767 end; |
768 end; |
768 until (tmpint > tmpn); |
769 until (tmpint > tmpn); |
769 // doesn't seem to print >256 chars, also missing explicit PChar cast |
770 {$ELSE} |
770 // AddFileLogRaw(glGetString(GL_EXTENSIONS)); |
771 // doesn't seem to print >256 chars |
772 AddFileLogRaw(PChar(glGetString(GL_EXTENSIONS))); |
|
773 {$ENDIF} |
|
771 AddFileLog(''); |
774 AddFileLog(''); |
772 |
775 |
773 defaultFrame:= 0; |
776 defaultFrame:= 0; |
774 {$IFDEF USE_VIDEO_RECORDING} |
777 {$IFDEF USE_VIDEO_RECORDING} |
775 if GameType = gmtRecord then |
778 if GameType = gmtRecord then |