24 lines
929 B
Ada
24 lines
929 B
Ada
with
|
|
GL.lean,
|
|
Interfaces.C.Strings,
|
|
System;
|
|
|
|
package GL.Pointers
|
|
--
|
|
-- Provides pointer conversions.
|
|
--
|
|
is
|
|
function to_GLvoid_access (From : in system.Address) return access GLvoid;
|
|
function to_GLvoid_access (From : access C.unsigned_char) return access GLvoid;
|
|
function to_GLchar_access (From : in C.Strings.chars_ptr) return access lean.GLchar;
|
|
|
|
function to_GLchar_Pointer_access
|
|
(From : access C.Strings.chars_ptr_array)
|
|
return access lean.GLchar_Pointer;
|
|
|
|
function "+" (From : in system.Address) return access GLvoid renames to_GLvoid_access;
|
|
function "+" (From : access C.unsigned_char) return access GLvoid renames to_GLvoid_access;
|
|
function "+" (From : in C.Strings.chars_ptr) return access lean.GLchar renames to_GLchar_access;
|
|
|
|
end GL.Pointers;
|