paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 19:30:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ write controller unit wiht -ix as well

Browse Source 
git-svn-id: trunk@49106 -
This commit is contained in:
florian 2021-04-02 17:13:11 +00:00
parent bf65bad5c5
commit 3999d037e3
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/options.pas
View File

@ -600,7 +600,8 @@ const
WriteLn(xmloutput,' <controllertypes>');
for controllertype:=low(tcontrollertype) to high(tcontrollertype) do
if embedded_controllers[controllertype].ControllerTypeStr<>'' then
WriteLn(xmloutput,' <controllertype name="',embedded_controllers[controllertype].ControllerTypeStr,'"/>');
WriteLn(xmloutput,' <controllertype name="',embedded_controllers[controllertype].ControllerTypeStr,
' controllerunit="',embedded_controllers[controllertype].controllerunitstr, '"/>');
WriteLn(xmloutput,' </controllertypes>');
end;
{$POP}