diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-10-09 20:23:41 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-10-09 20:23:41 +0200 |
| commit | a1d8c53e1cba26c14f64d8951b2117dda1fa4d25 (patch) | |
| tree | 3aba188cfe6641d35e2f7341d5bf2d112b07678c /src/synth/synth-oper.adb | |
| parent | 7bb502c9372456aec9593b043e1fcf96b2e2138a (diff) | |
| download | ghdl-a1d8c53e1cba26c14f64d8951b2117dda1fa4d25.tar.gz ghdl-a1d8c53e1cba26c14f64d8951b2117dda1fa4d25.tar.bz2 ghdl-a1d8c53e1cba26c14f64d8951b2117dda1fa4d25.zip | |
synth: use synth.source for setting location.
Diffstat (limited to 'src/synth/synth-oper.adb')
| -rw-r--r-- | src/synth/synth-oper.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/synth/synth-oper.adb b/src/synth/synth-oper.adb index 50449dac6..82a23f310 100644 --- a/src/synth/synth-oper.adb +++ b/src/synth/synth-oper.adb @@ -36,12 +36,16 @@ with Synth.Errors; use Synth.Errors; with Synth.Types; use Synth.Types; with Synth.Stmts; use Synth.Stmts; with Synth.Expr; use Synth.Expr; +with Synth.Source; package body Synth.Oper is -- As log2(3m) is directly referenced, the program must be linked with -lm -- (math library) on unix systems. pragma Linker_Options ("-lm"); + procedure Set_Location (N : Net; Loc : Node) + renames Synth.Source.Set_Location; + function Synth_Uresize (N : Net; W : Width; Loc : Node) return Net is Wn : constant Width := Get_Width (N); |