[Plplot-cvs] SF.net SVN: plplot:[9999] trunk/bindings/ada

[<jb...@us...>]

Revision: 9999
          http://plplot.svn.sourceforge.net/plplot/?rev=9999&view=rev
Author:   jbauck
Date:     2009-05-24 01:00:13 +0000 (Sun, 24 May 2009)

Log Message:
-----------
Added two pragmas for C calling conventions in thin binding to eliminate mysterious warnings that should have shown up many months ago. Made thick bindings compatible therewith.

Modified Paths:
--------------
    trunk/bindings/ada/plplot.ads.cmake
    trunk/bindings/ada/plplot_thin.ads.cmake
    trunk/bindings/ada/plplot_traditional.ads.cmake

Modified: trunk/bindings/ada/plplot.ads.cmake
===================================================================
--- trunk/bindings/ada/plplot.ads.cmake	2009-05-23 22:39:39 UTC (rev 9998)
+++ trunk/bindings/ada/plplot.ads.cmake	2009-05-24 01:00:13 UTC (rev 9999)
@@ -589,6 +589,7 @@
     -- for other user-written mask functions. This should be the same as 
     -- passing null for the second argument in Shade_Regions.
     function Mask_Function_No_Mask(x, y : Long_Float) return Integer;
+    pragma Convention(Convention => C, Entity => Mask_Function_No_Mask);
 
 
     -- Given an array to hold contour levels and function minimum and maximum,

Modified: trunk/bindings/ada/plplot_thin.ads.cmake
===================================================================
--- trunk/bindings/ada/plplot_thin.ads.cmake	2009-05-23 22:39:39 UTC (rev 9998)
+++ trunk/bindings/ada/plplot_thin.ads.cmake	2009-05-24 01:00:13 UTC (rev 9999)
@@ -118,13 +118,14 @@
     -- supplemented in the future. 
     type Fill_Procedure_Pointer_Type is access
         procedure(length : Integer; x, y : Real_Vector);
-    pragma Convention (Convention => C, Entity => Fill_Procedure_Pointer_Type);
+    pragma Convention(Convention => C, Entity => Fill_Procedure_Pointer_Type);
         
 
     -- Access-to-function type for Shade_Regions (aka plshades).
     -- Returns 1 if point is to be plotted, 0 if not.
     type Mask_Function_Pointer_Type is access
         function (x, y : PLFLT) return Integer;
+    pragma Convention(Convention => C, Entity => Mask_Function_Pointer_Type);
 
     -- Make a constrained array for use by plmap (Draw_Map) and 
     -- plmeridians (Draw_Latitude_Longitude). The reason that this is necessary 
@@ -152,6 +153,7 @@
     -- plf2eval2, plf2evalr.
     type Function_Evaluator_Pointer_Type is access
         function (ix, iy : PLINT; Irregular_Data : PLpointer) return PLFLT;
+    pragma Convention(Convention => C, Entity => Function_Evaluator_Pointer_Type);
 
 
 --------------------------------------------------------------------------------

Modified: trunk/bindings/ada/plplot_traditional.ads.cmake
===================================================================
--- trunk/bindings/ada/plplot_traditional.ads.cmake	2009-05-23 22:39:39 UTC (rev 9998)
+++ trunk/bindings/ada/plplot_traditional.ads.cmake	2009-05-24 01:00:13 UTC (rev 9999)
@@ -588,6 +588,7 @@
     -- for other user-written mask functions. This should be the same as 
     -- passing null for the second argument in Shade_Regions.
     function Mask_Function_No_Mask(x, y : Long_Float) return Integer;
+    pragma Convention(Convention => C, Entity => Mask_Function_No_Mask);
 
 
     -- Given an array to hold contour levels and function minimum and maximum,


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.