* list targets with -i

This commit is contained in:
peter 2001-08-07 18:42:46 +00:00
parent a8f65e699d
commit 7d45ac61de

View File

@ -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