function declaration error in VHDL

Code VHDL - [expand]
1
2
3
4
5
6
variable w,x : integer;
 variable num : real;
 begin
  w := numerator(a);
  x := denominator(a);
  num :=(a(numer))/(a(denom));

Code VHDL - [expand]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
library ieee ;
use ieee.math_real.all ;
package ratpack_extras_rational_real is 
  constant numer : INTEGER := 0; -- numerator
  constant denom : INTEGER := 1; -- denominator
  type rational is array (natural range numer to denom) of 
  integer; -- range -16384 to 16383;
  constant RAT_ZERO : rational := (0, 1);
  constant RAT_ONE  : rational := (1, 1);
  function to_rational (a, b : integer) return rational;
  function int2rat (a : integer) return rational;
  function numerator (a : rational) return integer;
  function denominator (a : rational) return integer;
  function rational_to_real(a:rational)return real;
  end ratpack_extras_rational_real;
package body ratpack_extras_rational_real is
  function to_rational (a, b : integer) return rational is
  variable r : rational;
  begin
  r(numer) := a;
  r(denom) := b;
  return r;
  end to_rational;
  function int2rat (a : integer) return rational is
  variable r : rational;
  begin
  r(numer) := a;
  r(denom) := 1;
  return r;
  end int2rat;
  function numerator (a : rational) return integer is
  variable n : integer;
  begin
  n := a(numer);
  return n;
  end numerator;
  function denominator (a : rational) return integer is
  variable d : integer;
  begin
  d := a(denom);
  return d;
  end denominator;
 function rational_to_real(a:rational)return real is 
 variable w,x:integer;
 variable num :real;
 begin
 w:=a(numer);
 x:=a(denom);
num :=(w/x);
  return num;
end rational_to_real;
end ratpack_extras_rational_real;