Check-in [c7ea2c6286]
Not logged in

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
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

Changes to gl-helper.fs.

   156    156       choose-config create-context getwh ;
   157    157   
   158    158   ?looper \ init-opengl ." Screen size: " dpy-w ? dpy-h ? cr
   159    159   
   160    160   \ gl shader program
   161    161   
   162    162   : .glsl-error ( shader -- )
   163         -    $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad @ #lf skip
          163  +    $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad l@ #lf skip
   164    164       BEGIN  #lf $split dup  WHILE  2swap cr type  REPEAT  2drop
   165    165       dup IF  cr type  ELSE  2drop  THEN ;
   166    166   
   167    167   : compile-shader ( source shadertype -- shader )
   168    168       \ ." Compile shader:" cr over @ cstring>sstring type
   169    169       glCreateShader dup >r IF
   170    170   	r@ 1 rot 0 glShaderSource

Changes to gl-slideshow.fs.

   264    264       slidelist $[]slurp-file current-slide off reshow ;
   265    265   : thumb-show ( addr u -- )
   266    266       slidelist $[]slurp-file current-slide off rethumb ;
   267    267   
   268    268   previous previous
   269    269   
   270    270   \ s" slide.lst" slide-show
          271  +
          272  +win 0= [IF] window-init [THEN]

Changes to gles2/gl-helper.fs.

   156    156       choose-config create-context getwh ;
   157    157   
   158    158   ?looper \ init-opengl ." Screen size: " dpy-w ? dpy-h ? cr
   159    159   
   160    160   \ gl shader program
   161    161   
   162    162   : .glsl-error ( shader -- )
   163         -    $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad @ #lf skip
          163  +    $1000 pad pad cell+ glGetShaderInfoLog pad cell+ pad l@ #lf skip
   164    164       BEGIN  #lf $split dup  WHILE  2swap cr type  REPEAT  2drop
   165    165       dup IF  cr type  ELSE  2drop  THEN ;
   166    166   
   167    167   : compile-shader ( source shadertype -- shader )
   168    168       \ ." Compile shader:" cr over @ cstring>sstring type
   169    169       glCreateShader dup >r IF
   170    170   	r@ 1 rot 0 glShaderSource

Changes to gles2/gl-slideshow.fs.

   264    264       slidelist $[]slurp-file current-slide off reshow ;
   265    265   : thumb-show ( addr u -- )
   266    266       slidelist $[]slurp-file current-slide off rethumb ;
   267    267   
   268    268   previous previous
   269    269   
   270    270   \ s" slide.lst" slide-show
          271  +
          272  +win 0= [IF] window-init [THEN]