Commit efca9967 authored by Julien's avatar Julien

use the Source_Name property on partitions

to show the binary name
parent 3de948d2
......@@ -1169,12 +1169,18 @@ package body Ocarina.Backends.Deos_Conf.Mapping is
Left),
Partition_Node);
XTU.Add_Attribute ("ExecutableImageName",
Get_Name_String
(AIN.Name
(Identifier
(Parent_Subcomponent
(Runtime)))) & ".exe", Partition_Node);
if Get_Source_Name (Runtime) = No_Name then
XTU.Add_Attribute ("ExecutableImageName",
Get_Name_String
(AIN.Name
(Identifier
(Parent_Subcomponent
(Runtime)))) & ".exe", Partition_Node);
else
XTU.Add_Attribute ("ExecutableImageName",
Get_Name_String
(Get_Source_Name (Runtime)), Partition_Node);
end if;
XTU.Add_Attribute ("MainProcessStackSizeInPages", "1", Partition_Node);
XTU.Add_Attribute ("BreakAtStartup", "no", Partition_Node);
XTU.Add_Attribute ("InDebugSet", "no", Partition_Node);
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment