Răsfoiți Sursa

* option -m made conditional (-dPREPROCWRITE) like its processing

git-svn-id: trunk@29098 -
Tomas Hajny 10 ani în urmă
părinte
comite
75c61150d9
2 a modificat fișierele cu 4 adăugiri și 0 ștergeri
  1. 2 0
      compiler/globals.pas
  2. 2 0
      compiler/options.pas

+ 2 - 0
compiler/globals.pas

@@ -237,7 +237,9 @@ interface
        paralinkoptions   : TCmdStr;
        paradynamiclinker : string;
        paraprintnodetree : byte;
+{$ifdef PREPROCWRITE}
        parapreprocess    : boolean;
+{$endif PREPROCWRITE}
        printnodefile     : text;
 
        {  typical cross compiling params}

+ 2 - 0
compiler/options.pas

@@ -1642,8 +1642,10 @@ begin
            'l' :
              ParaLogo:=not UnSetBool(more,0,opt,true);
 
+{$ifdef PREPROCWRITE}
            'm' :
              parapreprocess:=not UnSetBool(more,0,opt,true);
+{$endif PREPROCWRITE}
 
            'M' :
              begin