mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-27 20:11:02 +02:00
+ NOOPT removed the optinfo field
This commit is contained in:
parent
c328dff091
commit
c3bfb968a4
@ -161,8 +161,10 @@ interface
|
||||
|
||||
{ the short name makes typing easier }
|
||||
tai = class(TLinkedListItem)
|
||||
{$ifndef NOOPT}
|
||||
{ pointer to record with optimizer info about this tai object }
|
||||
optinfo : pointer;
|
||||
{$endif}
|
||||
fileinfo : tfileposinfo;
|
||||
typ : taitype;
|
||||
constructor Create;
|
||||
@ -499,7 +501,9 @@ uses
|
||||
constructor tai.Create;
|
||||
begin
|
||||
fileinfo:=aktfilepos;
|
||||
{$ifndef NOOPT}
|
||||
optinfo:=nil;
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
||||
@ -507,7 +511,9 @@ uses
|
||||
begin
|
||||
typ:=t;
|
||||
ppufile.getposinfo(fileinfo);
|
||||
{$ifndef NOOPT}
|
||||
optinfo:=nil;
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
|
||||
@ -1548,7 +1554,10 @@ uses
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.9 2002-10-05 12:43:23 carl
|
||||
Revision 1.10 2002-11-09 15:38:03 carl
|
||||
+ NOOPT removed the optinfo field
|
||||
|
||||
Revision 1.9 2002/10/05 12:43:23 carl
|
||||
* fixes for Delphi 6 compilation
|
||||
(warning : Some features do not work under Delphi)
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user