Check-in [c7ea2c6286]
Not logged in
Home Timeline Branches Tags Tickets Wiki Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:32 bit problem with glGetShaderInfoLog fixed
Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA1: c7ea2c6286db7b77eff4d2ee062f82dccdf38ebf
User & Date: bernd 2014-08-15 00:11:38.652
Context
2014-08-15
00:11
32 bit problem with glGetShaderInfoLog fixed Leaf check-in: c7ea2c6286 user: bernd tags: trunk
2014-07-01
23:49
Added gl-slideshow.fs link to gles2 directory check-in: 6785b2f715 user: bernd tags: trunk
Changes
Side-by-Side Diff Ignore Whitespace Patch
Changes to gl-helper.fs.
︙
156
157
158
159
160
161
162
163

164
165
166
167
168
169
170

156
157
158
159
160
161
162

163
164
165
166
167
168
169
170








-
+








    choose-config create-context getwh ;

?looper \ init-opengl ." Screen size: " dpy-w ? dpy-h ? cr

\ gl shader program

: .glsl-error ( shader -- )
    $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad @ #lf skip
    $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad l@ #lf skip
    BEGIN  #lf $split dup  WHILE  2swap cr type  REPEAT  2drop
    dup IF  cr type  ELSE  2drop  THEN ;

: compile-shader ( source shadertype -- shader )
    \ ." Compile shader:" cr over @ cstring>sstring type
    glCreateShader dup >r IF
	r@ 1 rot 0 glShaderSource
︙
Changes to gl-slideshow.fs.
︙
264
265
266
267
268
269
270



264
265
266
267
268
269
270
271
272








+
+

    slidelist $[]slurp-file current-slide off reshow ;
: thumb-show ( addr u -- )
    slidelist $[]slurp-file current-slide off rethumb ;

previous previous

\ s" slide.lst" slide-show

win 0= [IF] window-init [THEN]
Changes to gles2/gl-helper.fs.
︙
156
157
158
159
160
161
162
163

164
165
166
167
168
169
170

156
157
158
159
160
161
162

163
164
165
166
167
168
169
170








-
+








    choose-config create-context getwh ;

?looper \ init-opengl ." Screen size: " dpy-w ? dpy-h ? cr

\ gl shader program

: .glsl-error ( shader -- )
    $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad @ #lf skip
    $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad l@ #lf skip
    BEGIN  #lf $split dup  WHILE  2swap cr type  REPEAT  2drop
    dup IF  cr type  ELSE  2drop  THEN ;

: compile-shader ( source shadertype -- shader )
    \ ." Compile shader:" cr over @ cstring>sstring type
    glCreateShader dup >r IF
	r@ 1 rot 0 glShaderSource
︙
Changes to gles2/gl-slideshow.fs.
︙
264
265
266
267
268
269
270



264
265
266
267
268
269
270
271
272








+
+

    slidelist $[]slurp-file current-slide off reshow ;
: thumb-show ( addr u -- )
    slidelist $[]slurp-file current-slide off rethumb ;

previous previous

\ s" slide.lst" slide-show

win 0= [IF] window-init [THEN]
Fossil version [611144ddd9] 2025-05-16 13:52:48