* under development flag for targets

compiler/options.pas

@@ -170,7 +170,7 @@ end;
 procedure Toption.WriteInfo;
 var
   p : pchar;
-  hs,s : string;
+  hs,hs1,s : string;
   target : ttarget;
 begin
   p:=MessagePchar(option_info);
@@ -184,7 +184,10 @@ begin
          if assigned(targetinfos[target]) then
           begin
             hs:=s;
-            Replace(hs,'$OSTARGETS',targetinfos[target]^.name);
+            hs1:=targetinfos[target]^.name;
+            if tf_under_development in targetinfos[target]^.flags then
+             hs1:=hs1+' (under development)';
+            Replace(hs,'$OSTARGETS',hs1);
             Comment(V_Normal,hs);
           end;
       end
@@ -1581,7 +1584,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.53  2001-08-07 18:42:46  peter
+  Revision 1.54  2001-08-12 17:57:06  peter
+    * under development flag for targets
+
+  Revision 1.53  2001/08/07 18:42:46  peter
     * list targets with -i
 
   Revision 1.52  2001/08/01 15:07:29  jonas

compiler/rautils.pas

@@ -790,6 +790,7 @@ var
   sym : tsym;
   srsymtable : tsymtable;
   harrdef : tarraydef;
+  l : longint;
 Begin
   SetupVar:=false;
   asmsearchsym(s,sym,srsymtable);
@@ -979,8 +980,10 @@ Begin
       begin
         if assigned(tprocsym(sym).definition.nextoverloaded) then
           Message(asmr_w_calling_overload_func);
+        l:=opr.ref.offset;
         opr.typ:=OPR_SYMBOL;
         opr.symbol:=newasmsymbol(tprocsym(sym).definition.mangledname);
+        opr.symofs:=l;
         hasvar:=true;
         SetupVar:=TRUE;
         Exit;
@@ -1582,7 +1585,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.21  2001-08-06 21:40:48  peter
+  Revision 1.22  2001-08-12 17:57:07  peter
+    * under development flag for targets
+
+  Revision 1.21  2001/08/06 21:40:48  peter
     * funcret moved from tprocinfo to tprocdef
 
   Revision 1.20  2001/04/18 22:01:58  peter

compiler/systems.pas

@@ -150,7 +150,8 @@ interface
        end;
 
        ttargetflags = (tf_none,
-            tf_supports_stack_checking,tf_need_export,tf_needs_isconsole
+            tf_under_development,tf_supports_stack_checking,
+            tf_need_export,tf_needs_isconsole
        );
 
        ptargetinfo = ^ttargetinfo;
@@ -636,7 +637,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.22  2001-08-07 18:47:13  peter
+  Revision 1.23  2001-08-12 17:57:07  peter
+    * under development flag for targets
+
+  Revision 1.22  2001/08/07 18:47:13  peter
     * merged netbsd start
     * profile for win32
 

compiler/targets/t_beos.pas

@@ -444,7 +444,7 @@ end;
             target       : target_i386_BeOS;
             name         : 'Beos for i386';
             shortname    : 'Beos';
-            flags        : [];
+            flags        : [tf_under_development];
             cpu          : i386;
             unit_env     : 'BEOSUNITS';
             extradefines : '';
@@ -511,7 +511,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.5  2001-08-07 18:47:15  peter
+  Revision 1.6  2001-08-12 17:57:07  peter
+    * under development flag for targets
+
+  Revision 1.5  2001/08/07 18:47:15  peter
     * merged netbsd start
     * profile for win32
 

compiler/targets/t_fbsd.pas

@@ -516,7 +516,7 @@ end;
             target       : target_i386_NetBSD;
             name         : 'NetBSD for i386';
             shortname    : 'NetBSD';
-            flags        : [];
+            flags        : [tf_under_development];
             cpu          : i386;
             unit_env     : 'BSDUNITS';
             extradefines : 'UNIX;BSD';
@@ -580,7 +580,7 @@ end;
             target       : target_i386_NetBSD;
             name         : 'NetBSD for i386';
             shortname    : 'NetBSD';
-            flags        : [];
+            flags        : [tf_under_development];
             cpu          : i386;
             unit_env     : 'BSDUNITS';
             extradefines : 'UNIX;BSD';
@@ -656,7 +656,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.9  2001-08-07 18:47:15  peter
+  Revision 1.10  2001-08-12 17:57:07  peter
+    * under development flag for targets
+
+  Revision 1.9  2001/08/07 18:47:15  peter
     * merged netbsd start
     * profile for win32
 

compiler/targets/t_sunos.pas

@@ -484,7 +484,7 @@ end;
             target       : target_i386_sunos;
             name         : 'SunOS/ELF for i386';
             shortname    : 'SunOS';
-            flags        : [];
+            flags        : [tf_under_development];
             cpu          : i386;
             unit_env     : 'SUNOSUNITS';
             extradefines : 'UNIX;SOLARIS;LIBC';
@@ -549,7 +549,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.9  2001-08-07 18:47:15  peter
+  Revision 1.10  2001-08-12 17:57:07  peter
+    * under development flag for targets
+
+  Revision 1.9  2001/08/07 18:47:15  peter
     * merged netbsd start
     * profile for win32