diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2010-01-12 03:15:20 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2010-01-12 03:15:20 +0000 |
| commit | fb5957a16dea47ae4021c5d4c57b980cea02ee59 (patch) | |
| tree | abdfbed5924f5be4418f74a0afe50b248e41c330 /str_table.adb | |
| parent | 8cca0b24e2c19eedecffdeec89a8a2898da1e362 (diff) | |
| download | ghdl-fb5957a16dea47ae4021c5d4c57b980cea02ee59.tar.gz ghdl-fb5957a16dea47ae4021c5d4c57b980cea02ee59.tar.bz2 ghdl-fb5957a16dea47ae4021c5d4c57b980cea02ee59.zip | |
ghdl 0.29 release.
Diffstat (limited to 'str_table.adb')
| -rw-r--r-- | str_table.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/str_table.adb b/str_table.adb index b064898d6..947c98792 100644 --- a/str_table.adb +++ b/str_table.adb @@ -62,13 +62,13 @@ package body Str_Table is function Get_Length (Id : String_Id) return Natural is Ptr : String_Fat_Acc; - Len : Natural; + Len : Nat32; begin Ptr := Get_String_Fat_Acc (Id); Len := 1; loop if Ptr (Len) = Nul then - return Len - 1; + return Natural (Len - 1); end if; Len := Len + 1; end loop; @@ -77,11 +77,11 @@ package body Str_Table is function Image (Id : String_Id) return String is Ptr : String_Fat_Acc; - Len : Natural; + Len : Nat32; begin - Len := Get_Length (Id); + Len := Nat32 (Get_Length (Id)); Ptr := Get_String_Fat_Acc (Id); - return Ptr (1 .. Len); + return String (Ptr (1 .. Len)); end Image; procedure Initialize is |