paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 16:59:51 +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; procedure Toption.WriteInfo;
var var
p : pchar; p : pchar;
hs,s : string; hs,hs1,s : string;
target : ttarget; target : ttarget;
begin begin
p:=MessagePchar(option_info); p:=MessagePchar(option_info);
@ -184,7 +184,10 @@ begin
if assigned(targetinfos[target]) then if assigned(targetinfos[target]) then
begin begin
hs:=s; 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); Comment(V_Normal,hs);
end; end;
end end
@ -1581,7 +1584,10 @@ finalization
end. end.
{ {
$Log$ $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 * list targets with -i
Revision 1.52 2001/08/01 15:07:29 jonas Revision 1.52 2001/08/01 15:07:29 jonas

8
compiler/rautils.pas
View File

@ -790,6 +790,7 @@ var
sym : tsym; sym : tsym;
srsymtable : tsymtable; srsymtable : tsymtable;
harrdef : tarraydef; harrdef : tarraydef;
l : longint;
Begin Begin
SetupVar:=false; SetupVar:=false;
asmsearchsym(s,sym,srsymtable); asmsearchsym(s,sym,srsymtable);
@ -979,8 +980,10 @@ Begin
begin begin
if assigned(tprocsym(sym).definition.nextoverloaded) then if assigned(tprocsym(sym).definition.nextoverloaded) then
Message(asmr_w_calling_overload_func); Message(asmr_w_calling_overload_func);
l:=opr.ref.offset;
opr.typ:=OPR_SYMBOL; opr.typ:=OPR_SYMBOL;
opr.symbol:=newasmsymbol(tprocsym(sym).definition.mangledname); opr.symbol:=newasmsymbol(tprocsym(sym).definition.mangledname);
opr.symofs:=l;
hasvar:=true; hasvar:=true;
SetupVar:=TRUE; SetupVar:=TRUE;
Exit; Exit;
@ -1582,7 +1585,10 @@ end;
end. end.
{ {
$Log$ $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 * funcret moved from tprocinfo to tprocdef
Revision 1.20 2001/04/18 22:01:58 peter Revision 1.20 2001/04/18 22:01:58 peter

8
compiler/systems.pas
View File

@ -150,7 +150,8 @@ interface
end; end;
ttargetflags = (tf_none, 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; ptargetinfo = ^ttargetinfo;
@ -636,7 +637,10 @@ finalization
end. end.
{ {
$Log$ $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 * merged netbsd start
* profile for win32 * profile for win32

7
compiler/targets/t_beos.pas
View File

@ -444,7 +444,7 @@ end;
target : target_i386_BeOS; target : target_i386_BeOS;
name : 'Beos for i386'; name : 'Beos for i386';
shortname : 'Beos'; shortname : 'Beos';
flags : []; flags : [tf_under_development];
cpu : i386; cpu : i386;
unit_env : 'BEOSUNITS'; unit_env : 'BEOSUNITS';
extradefines : ''; extradefines : '';
@ -511,7 +511,10 @@ initialization
end. end.
{ {
$Log$ $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 * merged netbsd start
* profile for win32 * profile for win32

9
compiler/targets/t_fbsd.pas
View File

@ -516,7 +516,7 @@ end;
target : target_i386_NetBSD; target : target_i386_NetBSD;
name : 'NetBSD for i386'; name : 'NetBSD for i386';
shortname : 'NetBSD'; shortname : 'NetBSD';
flags : []; flags : [tf_under_development];
cpu : i386; cpu : i386;
unit_env : 'BSDUNITS'; unit_env : 'BSDUNITS';
extradefines : 'UNIX;BSD'; extradefines : 'UNIX;BSD';
@ -580,7 +580,7 @@ end;
target : target_i386_NetBSD; target : target_i386_NetBSD;
name : 'NetBSD for i386'; name : 'NetBSD for i386';
shortname : 'NetBSD'; shortname : 'NetBSD';
flags : []; flags : [tf_under_development];
cpu : i386; cpu : i386;
unit_env : 'BSDUNITS'; unit_env : 'BSDUNITS';
extradefines : 'UNIX;BSD'; extradefines : 'UNIX;BSD';
@ -656,7 +656,10 @@ initialization
end. end.
{ {
$Log$ $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 * merged netbsd start
* profile for win32 * profile for win32

7
compiler/targets/t_sunos.pas
View File

@ -484,7 +484,7 @@ end;
target : target_i386_sunos; target : target_i386_sunos;
name : 'SunOS/ELF for i386'; name : 'SunOS/ELF for i386';
shortname : 'SunOS'; shortname : 'SunOS';
flags : []; flags : [tf_under_development];
cpu : i386; cpu : i386;
unit_env : 'SUNOSUNITS'; unit_env : 'SUNOSUNITS';
extradefines : 'UNIX;SOLARIS;LIBC'; extradefines : 'UNIX;SOLARIS;LIBC';
@ -549,7 +549,10 @@ initialization
end. end.
{ {
$Log$ $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 * merged netbsd start
* profile for win32 * profile for win32