+ supported targets are now read dynamically from the included compiler

This commit is contained in:
florian 2004-11-03 12:05:54 +00:00
parent e2a6678591
commit 4fbda6140f
2 changed files with 17 additions and 4 deletions

View File

@ -23,7 +23,7 @@ var R,R2: TRect;
L: longint;
begin
TargetCount:=TargetSwitches^.ItemCount;
R.Assign(0,0,36,4+TargetCount);
R.Assign(0,0,60,4+TargetCount);
New(D, Init(R, dialog_target));
with D^ do
begin
@ -130,7 +130,10 @@ end;
{
$Log$
Revision 1.2 2002-09-07 15:40:43 peter
Revision 1.3 2004-11-03 12:05:54 florian
+ supported targets are now read dynamically from the included compiler
Revision 1.2 2002/09/07 15:40:43 peter
* old logs removed and tabs fixed
}

View File

@ -851,7 +851,8 @@ end;
*****************************************************************************}
procedure InitSwitches;
var
t : tsystem;
begin
New(SyntaxSwitches,Init('S'));
with SyntaxSwitches^ do
@ -927,6 +928,11 @@ begin
New(TargetSwitches,InitSelect('T'));
with TargetSwitches^ do
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);
{$ifdef dummy}
{$ifdef I386}
{AddSelectItem('DOS (GO32V~1~)','go32v1',idNone);}
AddSelectItem('~D~OS (GO32V2)','go32v2',idNone);
@ -953,6 +959,7 @@ begin
AddSelectItem('~M~ac OS','macos',idNone);
AddSelectItem('Macos ~X~(Darwin)','darwin',idNone);
{$endif powerpc}
{$endif dummy}
end;
New(AsmReaderSwitches,InitSelect('R'));
with AsmReaderSwitches^ do
@ -1274,7 +1281,10 @@ end;
end.
{
$Log$
Revision 1.17 2004-09-14 20:46:13 hajny
Revision 1.18 2004-11-03 12:05:54 florian
+ supported targets are now read dynamically from the included compiler
Revision 1.17 2004/09/14 20:46:13 hajny
* compilation fix - for loop counter issues
Revision 1.16 2004/09/04 23:33:39 armin