mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 13:45:58 +02:00
* list targets with -i
This commit is contained in:
parent
a8f65e699d
commit
7d45ac61de
@ -170,10 +170,27 @@ end;
|
||||
procedure Toption.WriteInfo;
|
||||
var
|
||||
p : pchar;
|
||||
hs,s : string;
|
||||
target : ttarget;
|
||||
begin
|
||||
p:=MessagePchar(option_info);
|
||||
while assigned(p) do
|
||||
Comment(V_Normal,GetMsgLine(p));
|
||||
begin
|
||||
s:=GetMsgLine(p);
|
||||
{ list OS Targets }
|
||||
if pos('$OSTARGETS',s)>0 then
|
||||
begin
|
||||
for target:=low(ttarget) to high(ttarget) do
|
||||
if assigned(targetinfos[target]) then
|
||||
begin
|
||||
hs:=s;
|
||||
Replace(hs,'$OSTARGETS',targetinfos[target]^.name);
|
||||
Comment(V_Normal,hs);
|
||||
end;
|
||||
end
|
||||
else
|
||||
Comment(V_Normal,s);
|
||||
end;
|
||||
StopOptions;
|
||||
end;
|
||||
|
||||
@ -1564,7 +1581,10 @@ finalization
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.52 2001-08-01 15:07:29 jonas
|
||||
Revision 1.53 2001-08-07 18:42:46 peter
|
||||
* list targets with -i
|
||||
|
||||
Revision 1.52 2001/08/01 15:07:29 jonas
|
||||
+ "compilerproc" directive support, which turns both the public and mangled
|
||||
name to lowercase(declaration_name). This prevents a normal user from
|
||||
accessing the routine, but they can still be easily looked up within
|
||||
|
Loading…
Reference in New Issue
Block a user