aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2023-01-06 07:35:31 +0100
committerTristan Gingold <tgingold@free.fr>2023-01-06 07:36:30 +0100
commitce9b0b8b289bb611e96cc1060e178b09497e1eb0 (patch)
tree32859a60ed1d427aa36a4ae6318d77ae1acd4559
parent65a40a067d1b153265eaf8bcadbc225c5eeac041 (diff)
downloadghdl-ce9b0b8b289bb611e96cc1060e178b09497e1eb0.tar.gz
ghdl-ce9b0b8b289bb611e96cc1060e178b09497e1eb0.tar.bz2
ghdl-ce9b0b8b289bb611e96cc1060e178b09497e1eb0.zip
synth: use same error message for null access as simulation
-rw-r--r--src/synth/synth-vhdl_expr.adb2
-rw-r--r--src/synth/synth-vhdl_stmts.adb2
2 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb
index 7cf295417..d644b5bfe 100644
--- a/src/synth/synth-vhdl_expr.adb
+++ b/src/synth/synth-vhdl_expr.adb
@@ -716,7 +716,7 @@ package body Synth.Vhdl_Expr is
Val := Synth_Expression (Syn_Inst, Get_Prefix (Name));
Acc := Read_Access (Val);
if Acc = Null_Heap_Index then
- Error_Msg_Synth (Syn_Inst, Name, "null access dereference");
+ Error_Msg_Synth (Syn_Inst, Name, "NULL access dereferenced");
return No_Valtyp;
end if;
Obj := Elab.Vhdl_Heap.Synth_Dereference (Acc);
diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb
index 8cc09b290..673934815 100644
--- a/src/synth/synth-vhdl_stmts.adb
+++ b/src/synth/synth-vhdl_stmts.adb
@@ -275,7 +275,7 @@ package body Synth.Vhdl_Stmts is
Acc := (Dest_Typ, Dest_Base.Val.Mem + Dest_Off.Mem_Off);
Idx := Read_Access (Acc);
if Idx = Null_Heap_Index then
- Error_Msg_Synth (Syn_Inst, Pfx, "null access dereference");
+ Error_Msg_Synth (Syn_Inst, Pfx, "NULL access dereferenced");
Dest_Base := No_Valtyp;
Dest_Typ := Dest_Typ.Acc_Acc;
else