paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-10 21:19:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ NOOPT removed the optinfo field

Browse Source
This commit is contained in:
carl 2002-11-09 15:38:03 +00:00
parent c328dff091
commit c3bfb968a4
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/aasmtai.pas
View File

@ -161,8 +161,10 @@ interface
{ the short name makes typing easier } { the short name makes typing easier }
tai = class(TLinkedListItem) tai = class(TLinkedListItem)
{$ifndef NOOPT}
{ pointer to record with optimizer info about this tai object } { pointer to record with optimizer info about this tai object }
optinfo : pointer; optinfo : pointer;
{$endif}
fileinfo : tfileposinfo; fileinfo : tfileposinfo;
typ : taitype; typ : taitype;
constructor Create; constructor Create;
@ -499,7 +501,9 @@ uses
constructor tai.Create; constructor tai.Create;
begin begin
fileinfo:=aktfilepos; fileinfo:=aktfilepos;
{$ifndef NOOPT}
optinfo:=nil; optinfo:=nil;
{$endif}
end; end;
@ -507,7 +511,9 @@ uses
begin begin
typ:=t; typ:=t;
ppufile.getposinfo(fileinfo); ppufile.getposinfo(fileinfo);
{$ifndef NOOPT}
optinfo:=nil; optinfo:=nil;
{$endif}
end; end;
@ -1548,7 +1554,10 @@ uses
end. end.
{ {
$Log$ $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 * fixes for Delphi 6 compilation
(warning : Some features do not work under Delphi) (warning : Some features do not work under Delphi)