Explorar o código

+ NOOPT removed the optinfo field

carl %!s(int64=23) %!d(string=hai) anos
pai
achega
c3bfb968a4
Modificáronse 1 ficheiros con 10 adicións e 1 borrados
  1. 10 1
      compiler/aasmtai.pas

+ 10 - 1
compiler/aasmtai.pas

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