Patch for gl/fwrap.fpp
--- fwrap.fpp.org 2005-09-21 10:54:11.000000000 +0200 +++ fwrap.fpp 2005-09-20 10:57:14.000000000 +0200 @@ -3842,6 +3842,7 @@ ! Module procedures !------------------ +character(len=1) :: tc contains ! OpenGL 1.0 @@ -3920,8 +3921,11 @@ type(glcptr) INTENT_IN lists integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i +character(len=1) :: tc + do i=1,glcptr_length - temp(i) = ichar(lists%addr(i:i)) + tc=lists%addr(i:i) + temp(i) = ichar(tc) end do i = glcptr_length call f9y4glcalllists(n,ixtype,temp,i) @@ -4396,8 +4400,11 @@ type(glcptr) INTENT_IN pixels integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i +character(len=1) :: tc + do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i = glcptr_length call f9y4gldrawpixels(width,height,format,xtype,temp,i) @@ -4845,8 +4852,10 @@ type(glcptr), intent(in) :: pixels integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i +character(len=1) :: tc do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i = glcptr_length call f9y4glgetteximage(xtarget,level,format,xtype,temp,i) @@ -5679,7 +5688,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i = glcptr_length call f9y4glreadpixels(x,y,width,height,format,xtype,temp,i) @@ -6163,7 +6173,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i = glcptr_length call f9y4glteximage1d(xtarget,level,components,width,border,format,xtype,temp,i) @@ -6234,7 +6245,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i = glcptr_length call f9y4glteximage2d(xtarget,level,components,width,height,border,format,xtype, & @@ -6573,7 +6585,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(ptr%addr(i:i)) + tc=ptr%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4glcolorpointer(xsize,xtype,stride,temp,i) @@ -6695,7 +6708,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(indices%addr(i:i)) + tc=indices%addr(i:i) + temp(i) = ichar(tc) end do i = glcptr_length call f9y4gldrawelements(mode,xcount,xtype,temp,i) @@ -6780,7 +6794,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(ptr%addr(i:i)) + tc=ptr%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4glindexpointer(xtype,stride,temp,i) @@ -6859,7 +6874,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(ptr%addr(i:i)) + tc=ptr%addr(i:i) + temp(i) = ichar(tc) end do i = glcptr_length call f9y4glinterleavedarrays(format,stride,temp,i) @@ -6919,7 +6935,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(ptr%addr(i:i)) + tc=ptr%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4glnormalpointer(xtype,stride,temp,i) @@ -7013,7 +7030,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(ptr%addr(i:i)) + tc=ptr%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4gltexcoordpointer(xsize,xtype,stride,temp,i) @@ -7076,7 +7094,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4gltexsubimage1d(xtarget,level,xoffset,width,format,xtype,temp,i) @@ -7142,7 +7161,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4gltexsubimage2d(xtarget,level,xoffset,yoffset,width,height,format, & @@ -7201,7 +7221,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(ptr%addr(i:i)) + tc=ptr%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4glvertexpointer(xsize,xtype,stride,temp,i) @@ -7253,7 +7274,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(indices%addr(i:i)) + tc=indices%addr(i:i) + temp(i) = ichar(tc) end do i = glcptr_length call f9y4gldrawrangeelements(mode,start,xend,xcount,xtype,temp,i) @@ -7319,7 +7341,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4glteximage3d(xtarget,level,internalformat,width,height, & @@ -7391,7 +7414,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4gltexsubimage3d(xtarget,level,xoffset,yoffset,zoffset,width,height, & @@ -7709,7 +7733,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4gltexsubimage1dext(xtarget,level,xoffset,width,format,xtype,temp,i) @@ -7775,7 +7800,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4gltexsubimage2dext(xtarget,level,xoffset,yoffset,width,height,format, & @@ -7855,7 +7881,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4glteximage3dext(xtarget,level,internalformat,width,height, & @@ -7927,7 +7954,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(pixels%addr(i:i)) + tc=pixels%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4gltexsubimage3dext(xtarget,level,xoffset,yoffset,zoffset,width,height, & @@ -8096,7 +8124,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(ptr%addr(i:i)) + tc=ptr%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4glvertexpointerext(xsize,xtype,stride,xcount,temp,i) @@ -8148,7 +8177,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(ptr%addr(i:i)) + tc=ptr%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4glnormalpointerext(xtype,stride,xcount,temp,i) @@ -8217,7 +8247,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(ptr%addr(i:i)) + tc=ptr%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4glcolorpointerext(xsize,xtype,stride,xcount,temp,i) @@ -8286,7 +8317,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(ptr%addr(i:i)) + tc=ptr%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4glindexpointerext(xtype,stride,xcount,temp,i) @@ -8339,7 +8371,8 @@ integer(kind=gluint), dimension(glcptr_length) :: temp integer(kind=glint) :: i do i=1,glcptr_length - temp(i) = ichar(ptr%addr(i:i)) + tc=ptr%addr(i:i) + temp(i) = ichar(tc) end do i=glcptr_length call f9y4gltexcoordpointerext(xsize,xtype,stride,xcount,temp,i)