paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:19:27 +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;
PGLhandleARB = ^GLhandleARB;
GLintptr = Integer;
GLintptr = PtrInt;
TGLintptr = GLintptr;
PGLintptr = ^GLintptr;
GLsizeiptr = Integer;
GLsizeiptr = PtrInt;
TGLsizeiptr = GLsizeiptr;
PGLsizeiptr = ^GLsizeiptr;
@ -4269,8 +4269,8 @@ begin
begin
where := StrPos(start, PChar(extension));
if where = nil then Break;
terminator := Pointer(Integer(where) + Length(extension));
if (where = start) or (PChar(Integer(where) - 1)^ = ' ') then
terminator := Pointer(PtrUInt(where) + Length(extension));
if (where = start) or (PChar(PtrUInt(where) - 1)^ = ' ') then
begin
if (terminator^ = ' ') or (terminator^ = #0) then
begin