diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-05-10 06:58:57 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-05-10 18:14:47 +0200 |
| commit | db7d0b337e85c3b327efa799418ef92de3a369ce (patch) | |
| tree | b1aec6a72ccf989da9617cbc0f581b12eb80b8c8 /src/vhdl/vhdl-scanner-scan_literal.adb | |
| parent | 2c5ce4b3aab14d67e97623e8dfe31cf27a043e7c (diff) | |
| download | ghdl-db7d0b337e85c3b327efa799418ef92de3a369ce.tar.gz ghdl-db7d0b337e85c3b327efa799418ef92de3a369ce.tar.bz2 ghdl-db7d0b337e85c3b327efa799418ef92de3a369ce.zip | |
vhdl: replace Iir_Int64 by Int64, and Iir_Fp64 by Fp64.
Diffstat (limited to 'src/vhdl/vhdl-scanner-scan_literal.adb')
| -rw-r--r-- | src/vhdl/vhdl-scanner-scan_literal.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/vhdl/vhdl-scanner-scan_literal.adb b/src/vhdl/vhdl-scanner-scan_literal.adb index 9006587fc..b13f328e8 100644 --- a/src/vhdl/vhdl-scanner-scan_literal.adb +++ b/src/vhdl/vhdl-scanner-scan_literal.adb @@ -106,7 +106,7 @@ begin -- a universal integer. Current_Token := Tok_Integer; -- No possible overflow. - Current_Context.Int64 := Iir_Int64 (D); + Current_Context.Lit_Int64 := Int64 (D); return; elsif D >= (Natural'Last / 10) - 1 then -- Number may be greather than the natural limit. @@ -130,7 +130,7 @@ begin if C not in '0' .. '9' then Error_Msg_Scan ("a dot must be followed by a digit"); Current_Token := Tok_Real; - Current_Context.Fp64 := Fp64 (To_Float_64 (False, Res, Base, 0)); + Current_Context.Lit_Fp64 := Fp64 (To_Float_64 (False, Res, Base, 0)); return; end if; Scan_Integer; @@ -283,7 +283,7 @@ begin -- a universal real. Current_Token := Tok_Real; - Current_Context.Fp64 := + Current_Context.Lit_Fp64 := Fp64 (To_Float_64 (False, Res, Base, Exp - Scale)); else -- a universal integer. @@ -298,10 +298,10 @@ begin U : Unsigned_64; begin Bignum_To_Int (Res, U, Ok); - if U > Unsigned_64 (Iir_Int64'Last) then + if U > Unsigned_64 (Int64'Last) then Ok := False; else - Current_Context.Int64 := Iir_Int64 (U); + Current_Context.Lit_Int64 := Int64 (U); end if; end; if not Ok then @@ -313,5 +313,5 @@ exception Error_Msg_Scan ("literal overflow"); Current_Token := Tok_Integer; - Current_Context.Int64 := 0; + Current_Context.Lit_Int64 := 0; end Scan_Literal; |