blob: 8ac18b72786542aba6cf73b4fc39eec4fc713c74 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
package repro_warn1 is
type repro_warn1 is range 0 to 2e9 units
Hz ;
kHz = 1000 Hz ;
end units ;
function half_period(freq : time) return time ;
end;
package body repro_warn1 is
function half_period(freq : time) return time is
begin
return freq / 2.0 ;
end function ;
end package body ;
|
