Browse Source

* initialization of targets fixed

Tomas Hajny 20 years ago
parent
commit
e759cda9e6
1 changed files with 5 additions and 2 deletions
  1. 5 2
      ide/fpswitch.pas

+ 5 - 2
ide/fpswitch.pas

@@ -931,7 +931,7 @@ begin
      { better, we've a correct target list without "tilded" names instead a wrong one }
      { better, we've a correct target list without "tilded" names instead a wrong one }
      for t:=low(tsystem) to high(tsystem) do
      for t:=low(tsystem) to high(tsystem) do
        if assigned(targetinfos[t]) then
        if assigned(targetinfos[t]) then
-         AddSelectItem(targetinfos[t]^.name,targetinfos[t]^.shortname,idNone);
+         AddSelectItem(targetinfos[t]^.name, LowerCaseStr (targetinfos[t]^.shortname),idNone);
    end;
    end;
   New(AsmReaderSwitches,InitSelect('R'));
   New(AsmReaderSwitches,InitSelect('R'));
   with AsmReaderSwitches^ do
   with AsmReaderSwitches^ do
@@ -1212,7 +1212,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $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
     * truncate log
 
 
 }
 }