* list targets with -i

compiler/options.pas

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