Permalink
Browse files

fixed broken build

  • Loading branch information...
1 parent a0ef2d3 commit 7f4f2bf9b155f72f9fb3e950b9db40d4dff04794 @flyx committed Feb 15, 2012
Showing with 8 additions and 6 deletions.
  1. +5 −0 src/gl/gl-api.ads
  2. +3 −6 src/gl/gl-immediate.adb
View
@@ -60,6 +60,11 @@ private package GL.API is
pragma Import (Convention => StdCall, Entity => Get_Double,
External_Name => "glGetDoublev");
+ procedure Get_Color (Name : Enums.Getter.Parameter;
+ Target : in out Colors.Color);
+ pragma Import (Convention => StdCall, Entity => Get_Color,
+ External_Name => "glGetFloatv");
+
procedure Get_Integer (Name : Enums.Getter.Parameter;
Target : access C.int);
pragma Import (Convention => StdCall, Entity => Get_Integer,
View
@@ -46,14 +46,11 @@ package body GL.Immediate is
end Set_Color;
function Current_Color return Colors.Color is
- Vector : Vectors.Vector;
+ Ret : Colors.Color;
begin
- API.Get_Double (Enums.Getter.Current_Color, Vector (Vectors.X)'Access);
+ API.Get_Color (Enums.Getter.Current_Color, Ret);
Check_OpenGL_Error;
- return Colors.Color'(Colors.R => Vector (Vectors.X),
- Colors.G => Vector (Vectors.Y),
- Colors.B => Vector (Vectors.Z),
- Colors.A => Vector (Vectors.W));
+ return Ret;
end Current_Color;
procedure Set_Fog_Distance (Value : Real) is

0 comments on commit 7f4f2bf

Please sign in to comment.