diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-08-30 13:30:19 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-08-30 13:30:19 +0000 |
| commit | cd9300765e7e3fd43e450777e98a778146f700c2 (patch) | |
| tree | f013fea17ae4eee9c1649e63b99b9bfe377fafb4 /evaluation.adb | |
| parent | 4b6571671497ecc1f846bfa49678254e14511fc9 (diff) | |
| download | ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.tar.gz ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.tar.bz2 ghdl-cd9300765e7e3fd43e450777e98a778146f700c2.zip | |
Switch to gcc 4.3
Don't use tagged types in grt (not supported by recent versions of GNAT)
Fix warnings
Diffstat (limited to 'evaluation.adb')
| -rw-r--r-- | evaluation.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/evaluation.adb b/evaluation.adb index 495e59abe..ddb110988 100644 --- a/evaluation.adb +++ b/evaluation.adb @@ -15,7 +15,6 @@ -- along with GCC; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Types; use Types; with Errorout; use Errorout; with Name_Table; use Name_Table; with Str_Table; @@ -354,7 +353,6 @@ package body Evaluation is function Eval_String_Literal (Str : Iir) return Iir is - use Name_Table; Ptr : String_Fat_Acc; Len : Natural; begin @@ -495,8 +493,8 @@ package body Evaluation is return Iir is use Str_Table; - L_Str : String_Fat_Acc := Get_String_Fat_Acc (Left); - R_Str : String_Fat_Acc := Get_String_Fat_Acc (Right); + L_Str : constant String_Fat_Acc := Get_String_Fat_Acc (Left); + R_Str : constant String_Fat_Acc := Get_String_Fat_Acc (Right); Len : Natural; Id : String_Id; begin |