From fb5957a16dea47ae4021c5d4c57b980cea02ee59 Mon Sep 17 00:00:00 2001 From: gingold Date: Tue, 12 Jan 2010 03:15:20 +0000 Subject: ghdl 0.29 release. --- ortho/mcode/binary_file-memory.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'ortho/mcode/binary_file-memory.adb') diff --git a/ortho/mcode/binary_file-memory.adb b/ortho/mcode/binary_file-memory.adb index 4d5f74024..a37af9cb7 100644 --- a/ortho/mcode/binary_file-memory.adb +++ b/ortho/mcode/binary_file-memory.adb @@ -57,7 +57,9 @@ package body Binary_File.Memory is --Sect.Data := new Byte_Array (1 .. 0); end if; end if; - if Sect.Data_Max > 0 and Sect /= Sect_Abs then + if Sect.Data_Max > 0 + and (Sect /= Sect_Abs and Sect.Flags /= Section_Debug) + then Sect.Vaddr := To_Pc_Type (Sect.Data (0)'Address); end if; Sect := Sect.Next; -- cgit v1.2.3