Pārlūkot izejas kodu

+ NOOPT removed the optinfo field

carl 23 gadi atpakaļ
vecāks
revīzija
c3bfb968a4
1 mainītis faili ar 10 papildinājumiem un 1 dzēšanām
  1. 10 1
      compiler/aasmtai.pas

+ 10 - 1
compiler/aasmtai.pas

@@ -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)