Browse Source

* IsExe restored

pierre 25 years ago
parent
commit
f95a082233
2 changed files with 16 additions and 5 deletions
  1. 10 3
      compiler/globals.pas
  2. 6 2
      compiler/pmodules.pas

+ 10 - 3
compiler/globals.pas

@@ -191,6 +191,7 @@ interface
        RelocSection : boolean = true;
        RelocSectionSetExplicitly : boolean = false;
        LinkTypeSetExplicitly : boolean = false;
+       IsExe : boolean = false;
        DLLsource : boolean = false;
        DLLImageBase : pstring = nil;
        UseDeffileForExport : boolean = true;
@@ -1095,7 +1096,6 @@ implementation
          StringDispose(DLLImageBase);
        RelocSection:=true;
        RelocSectionSetExplicitly:=false;
-       DLLsource:=false;
        UseDeffileForExport:=true;
        librarysearchpath.Done;
        unitsearchpath.Done;
@@ -1109,6 +1109,10 @@ implementation
         do_build:=false;
         do_make:=true;
         compile_level:=0;
+        { these two should not be cleared in
+          DoneGlobals as the IDE might need their value }
+        IsExe:=false;
+        DLLsource:=false;
 
       { Output }
         OutputFile:='';
@@ -1183,7 +1187,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.15  2000-09-27 21:20:56  peter
+  Revision 1.16  2000-10-04 14:51:08  pierre
+   * IsExe restored
+
+  Revision 1.15  2000/09/27 21:20:56  peter
     * also set initlocalswitches in setcompilemode (merged)
 
   Revision 1.14  2000/09/26 10:50:41  jonas
@@ -1231,4 +1238,4 @@ end.
   Revision 1.2  2000/07/13 11:32:41  michael
   + removed logs
 
-}
+}

+ 6 - 2
compiler/pmodules.pas

@@ -1444,6 +1444,7 @@ implementation
 {$endif fixLeaksOnError}
       begin
          DLLsource:=islibrary;
+         IsExe:=true;
          parse_only:=false;
          { relocation works only without stabs under win32 !! PM }
          { internal assembler uses rva for stabs info
@@ -1713,7 +1714,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.12  2000-09-30 16:07:40  peter
+  Revision 1.13  2000-10-04 14:51:08  pierre
+   * IsExe restored
+
+  Revision 1.12  2000/09/30 16:07:40  peter
     * filepos when unit not found (merged)
 
   Revision 1.11  2000/09/24 21:33:47  peter
@@ -1749,4 +1753,4 @@ end.
 
   Revision 1.2  2000/07/13 11:32:45  michael
   + removed logs
-}
+}