diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-10-21 18:17:23 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-10-21 18:17:23 +0200 |
| commit | d8066d9998206eeffe3857436e1931f3aba55ccb (patch) | |
| tree | 18ac635f30f370fc9a4aec67e5eff7db2e79a5ac /src/ortho/oread | |
| parent | 459ffbfa71366beb87436f02352e33d31c700aab (diff) | |
| download | ghdl-d8066d9998206eeffe3857436e1931f3aba55ccb.tar.gz ghdl-d8066d9998206eeffe3857436e1931f3aba55ccb.tar.bz2 ghdl-d8066d9998206eeffe3857436e1931f3aba55ccb.zip | |
ortho debug/oread: handle neg neg.
Diffstat (limited to 'src/ortho/oread')
| -rw-r--r-- | src/ortho/oread/ortho_front.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/ortho/oread/ortho_front.adb b/src/ortho/oread/ortho_front.adb index 559ace797..deaa5cf7d 100644 --- a/src/ortho/oread/ortho_front.adb +++ b/src/ortho/oread/ortho_front.adb @@ -1755,7 +1755,7 @@ package body Ortho_Front is Res := New_Lit (Parse_Minus_Num (Atype)); Res_Type := Atype; else - Parse_Primary_Expression (Atype, Res, Res_Type); + Parse_Unary_Expression (Atype, Res, Res_Type); Res := New_Monadic_Op (ON_Neg_Ov, Res); end if; when Tok_Not => |