paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-29 19:59:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* under development flag for targets

Browse Source
This commit is contained in:
peter 2001-08-12 17:57:06 +00:00
parent 39e7c9a1d7
commit 19e153abd3
6 changed files with 38 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/options.pas
View File

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

8
compiler/rautils.pas
View File

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

8
compiler/systems.pas
View File

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

7
compiler/targets/t_beos.pas
View File

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

9
compiler/targets/t_fbsd.pas
View File

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

7
compiler/targets/t_sunos.pas
View File

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