paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 20:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed for 64 bit (patch by Michalis Kamburelis, mantis #10508)

Browse Source 
git-svn-id: trunk@9627 -
This commit is contained in:
Jonas Maebe 2008-01-04 22:42:19 +00:00
parent e3d82f1953
commit 2b1f7a257a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/extra/opengl/glext.pp
View File

@ -57,11 +57,11 @@ type
TGLhandleARB = GLhandleARB; TGLhandleARB = GLhandleARB;
PGLhandleARB = ^GLhandleARB; PGLhandleARB = ^GLhandleARB;
GLintptr = Integer; GLintptr = PtrInt;
TGLintptr = GLintptr; TGLintptr = GLintptr;
PGLintptr = ^GLintptr; PGLintptr = ^GLintptr;
GLsizeiptr = Integer; GLsizeiptr = PtrInt;
TGLsizeiptr = GLsizeiptr; TGLsizeiptr = GLsizeiptr;
PGLsizeiptr = ^GLsizeiptr; PGLsizeiptr = ^GLsizeiptr;
@ -4269,8 +4269,8 @@ begin
begin begin
where := StrPos(start, PChar(extension)); where := StrPos(start, PChar(extension));
if where = nil then Break; if where = nil then Break;
terminator := Pointer(Integer(where) + Length(extension)); terminator := Pointer(PtrUInt(where) + Length(extension));
if (where = start) or (PChar(Integer(where) - 1)^ = ' ') then if (where = start) or (PChar(PtrUInt(where) - 1)^ = ' ') then
begin begin
if (terminator^ = ' ') or (terminator^ = #0) then if (terminator^ = ' ') or (terminator^ = #0) then
begin begin