← Back to branch summary

~framefritti/qucsada/trunk

« back to all changes in this revision

Viewing changes to qucs-variables.adb

  • Committer: Riccardo Bernardini
  • Date: 2013-10-17 17:01:54 UTC
  • Revision ID: riccardo.bernardini@uniud.it-20131017170154-msz6rpc5hpl44co1
Added Size method that returns an array

Show diffs side-by-side

added added

removed removed

Lines of Context:
qucs-variables.adb
72
72
      return Positive (Item.Data.Length);
73
73
   end Size;
74
74
 
 
75
   ----------
 
76
   -- Size --
 
77
   ----------
 
78
 
 
79
   function Size (Item : Variable) return Dim_Array is
 
80
   begin
 
81
      return Dim_Array (Item.Dims (1 .. Item.N_Dims));
 
82
   end Size;
 
83
 
75
84
   ---------
76
85
   -- Set --
77
86
   ---------