← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/libgtkada2/intrepid

« back to all changes in this revision

Viewing changes to src/glib-gslist.adb

  • Committer: Bazaar Package Importer
  • Author(s): Luca Falavigna
  • Date: 2008-08-11 09:46:51 UTC
  • mfrom: (6.1.1 squeeze)
  • Revision ID: james.westby@ubuntu.com-20080811094651-9mjd6acwa98ffw5c
Tags: 2.12.0-2ubuntu1
Add lpia to supported architectures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/glib-gslist.adb
85
85
         return Convert (Internal (Get_Object (List)));
86
86
      end Get_Data;
87
87
 
 
88
      ----------------------
 
89
      -- Get_Data_Address --
 
90
      ----------------------
 
91
 
 
92
      function Get_Data_Address (List : GSlist) return System.Address is
 
93
         function Internal (List : in System.Address) return System.Address;
 
94
         pragma Import (C, Internal, "ada_slist_get_data");
 
95
      begin
 
96
         return Internal (Get_Object (List));
 
97
      end Get_Data_Address;
 
98
 
88
99
      ------------
89
100
      -- Insert --
90
101
      ------------