diff options
Diffstat (limited to 'src/grt/grt-waves.adb')
| -rw-r--r-- | src/grt/grt-waves.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/grt/grt-waves.adb b/src/grt/grt-waves.adb index eb0f0a898..98a8538b3 100644 --- a/src/grt/grt-waves.adb +++ b/src/grt/grt-waves.adb @@ -1783,7 +1783,8 @@ package body Grt.Waves is procedure Wave_Cycle is - function Lt (Op1, Op2 : Natural) return Boolean is + function Lt (Op1, Op2 : Positive) return Boolean + is Left : Ghdl_Signal_Ptr; Right : Ghdl_Signal_Ptr; begin @@ -1793,7 +1794,8 @@ package body Grt.Waves is end Lt; pragma Inline (Lt); - procedure Swap (From, To : Natural) is + procedure Swap (From, To : Positive) + is Tmp : Ghdl_Signal_Ptr; begin Tmp := Changed_Sig_Table.Table (From); |