diff options
Diffstat (limited to 'src/vhdl/flists.adb')
| -rw-r--r-- | src/vhdl/flists.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/flists.adb b/src/vhdl/flists.adb index 4aca3d6ad..4c8067542 100644 --- a/src/vhdl/flists.adb +++ b/src/vhdl/flists.adb @@ -133,9 +133,9 @@ package body Flists is Flist := Null_Flist; end Destroy_Flist; - function Flast (Flist : Flist_Type) return Natural is + function Flast (Flist : Flist_Type) return Integer is begin - return Natural (Flistt.Table (Flist).Len - 1); + return Integer (Flistt.Table (Flist).Len - 1); end Flast; function Length (Flist : Flist_Type) return Natural is |