paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 13:28:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ added options -lS and -lT for source and target os output

Browse Source 
(to have a easier way to test OS_SOURCE abd OS_TARGET in makefiles)
  * several problems with rtti data
    (type of sym was not checked)
    assumed to be varsym when they could be procsym or property syms !!
This commit is contained in:
pierre 1998-10-26 14:19:28 +00:00
parent a5a58fef27
commit c7167e92ff
2 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/symdef.inc
View File

@ -1791,7 +1791,7 @@
count : longint; count : longint;
procedure count_inittable_fields(sym : psym);{$ifndef fpc}far;{$endif} procedure count_inittable_fields(sym : psym);{$ifndef fpc}far;{$endif}
begin begin
if pvarsym(sym)^.definition^.needs_inittable then if (sym^.typ=varsym) and (pvarsym(sym)^.definition^.needs_inittable) then
inc(count); inc(count);
end; end;
@ -1804,7 +1804,7 @@
procedure write_field_inittable(sym : psym);{$ifndef fpc}far;{$endif} procedure write_field_inittable(sym : psym);{$ifndef fpc}far;{$endif}
begin begin
if pvarsym(sym)^.definition^.needs_inittable then if (sym^.typ=varsym) and pvarsym(sym)^.definition^.needs_inittable then
begin begin
rttilist^.concat(new(pai_const,init_symbol(strpnew(lab2str(pvarsym(sym)^.definition^.get_inittable_label))))); rttilist^.concat(new(pai_const,init_symbol(strpnew(lab2str(pvarsym(sym)^.definition^.get_inittable_label)))));
rttilist^.concat(new(pai_const,init_32bit(pvarsym(sym)^.address))); rttilist^.concat(new(pai_const,init_32bit(pvarsym(sym)^.address)));
@ -3199,7 +3199,14 @@
{ {
$Log$ $Log$
Revision 1.64 1998-10-22 17:11:21 pierre Revision 1.65 1998-10-26 14:19:28 pierre
+ added options -lS and -lT for source and target os output
(to have a easier way to test OS_SOURCE abd OS_TARGET in makefiles)
* several problems with rtti data
(type of sym was not checked)
assumed to be varsym when they could be procsym or property syms !!
Revision 1.64 1998/10/22 17:11:21 pierre
+ terminated the include exclude implementation for i386 + terminated the include exclude implementation for i386
* enums inside records fixed * enums inside records fixed

15
compiler/systems.pas
View File

@ -248,7 +248,7 @@ implementation
), ),
( (
id : os_i386_linux; id : os_i386_linux;
name : 'Linux-i386'; name : 'Linux for i386';
sharedlibext : '.so'; sharedlibext : '.so';
staticlibext : '.a'; staticlibext : '.a';
sourceext : '.pp'; sourceext : '.pp';
@ -284,7 +284,7 @@ implementation
), ),
( (
id : os_i386_win32; id : os_i386_win32;
name : 'Win32'; name : 'Win32 for i386';
sharedlibext : '.dll'; sharedlibext : '.dll';
staticlibext : '.aw'; staticlibext : '.aw';
sourceext : '.pp'; sourceext : '.pp';
@ -356,7 +356,7 @@ implementation
), ),
( (
id : os_m68k_linux; id : os_m68k_linux;
name : 'Linux-m68k'; name : 'Linux for m68k';
sharedlibext : '.so'; sharedlibext : '.so';
staticlibext : '.a'; staticlibext : '.a';
sourceext : '.pp'; sourceext : '.pp';
@ -1174,7 +1174,14 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.47 1998-10-20 08:07:04 pierre Revision 1.48 1998-10-26 14:19:30 pierre
+ added options -lS and -lT for source and target os output
(to have a easier way to test OS_SOURCE abd OS_TARGET in makefiles)
* several problems with rtti data
(type of sym was not checked)
assumed to be varsym when they could be procsym or property syms !!
Revision 1.47 1998/10/20 08:07:04 pierre
* several memory corruptions due to double freemem solved * several memory corruptions due to double freemem solved
=> never use p^.loc.location:=p^.left^.loc.location; => never use p^.loc.location:=p^.left^.loc.location;
+ finally I added now by default + finally I added now by default