* initialization of targets fixed

This commit is contained in:
Tomas Hajny 2005-05-15 19:22:13 +00:00
parent 90bb204b89
commit e759cda9e6

View File

@ -931,7 +931,7 @@ begin
{ better, we've a correct target list without "tilded" names instead a wrong one }
for t:=low(tsystem) to high(tsystem) do
if assigned(targetinfos[t]) then
AddSelectItem(targetinfos[t]^.name,targetinfos[t]^.shortname,idNone);
AddSelectItem(targetinfos[t]^.name, LowerCaseStr (targetinfos[t]^.shortname),idNone);
end;
New(AsmReaderSwitches,InitSelect('R'));
with AsmReaderSwitches^ do
@ -1212,7 +1212,10 @@ end;
end.
{
$Log$
Revision 1.22 2005-02-14 17:13:18 peter
Revision 1.23 2005-05-15 19:22:13 hajny
* initialization of targets fixed
Revision 1.22 2005/02/14 17:13:18 peter
* truncate log
}