paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-24 02:19:24 +02: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

13
compiler/symdef.inc
View File

@ -1791,7 +1791,7 @@
count : longint;
procedure count_inittable_fields(sym : psym);{$ifndef fpc}far;{$endif}
begin
if pvarsym(sym)^.definition^.needs_inittable then
if (sym^.typ=varsym) and (pvarsym(sym)^.definition^.needs_inittable) then
inc(count);
end;
@ -1804,7 +1804,7 @@
procedure write_field_inittable(sym : psym);{$ifndef fpc}far;{$endif}
begin
if pvarsym(sym)^.definition^.needs_inittable then
if (sym^.typ=varsym) and pvarsym(sym)^.definition^.needs_inittable then
begin
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)));
@ -3199,7 +3199,14 @@
{
$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
* enums inside records fixed

15
compiler/systems.pas
View File

@ -248,7 +248,7 @@ implementation
),
(
id : os_i386_linux;
name : 'Linux-i386';
name : 'Linux for i386';
sharedlibext : '.so';
staticlibext : '.a';
sourceext : '.pp';
@ -284,7 +284,7 @@ implementation
),
(
id : os_i386_win32;
name : 'Win32';
name : 'Win32 for i386';
sharedlibext : '.dll';
staticlibext : '.aw';
sourceext : '.pp';
@ -356,7 +356,7 @@ implementation
),
(
id : os_m68k_linux;
name : 'Linux-m68k';
name : 'Linux for m68k';
sharedlibext : '.so';
staticlibext : '.a';
sourceext : '.pp';
@ -1174,7 +1174,14 @@ begin
end.
{
$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
=> never use p^.loc.location:=p^.left^.loc.location;
+ finally I added now by default