paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 19:09:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* IsExe restored

Browse Source
This commit is contained in:
pierre 2000-10-04 14:51:08 +00:00
parent dc1bba3973
commit f95a082233
2 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/globals.pas
View File

@ -191,6 +191,7 @@ interface
RelocSection : boolean = true; RelocSection : boolean = true;
RelocSectionSetExplicitly : boolean = false; RelocSectionSetExplicitly : boolean = false;
LinkTypeSetExplicitly : boolean = false; LinkTypeSetExplicitly : boolean = false;
IsExe : boolean = false;
DLLsource : boolean = false; DLLsource : boolean = false;
DLLImageBase : pstring = nil; DLLImageBase : pstring = nil;
UseDeffileForExport : boolean = true; UseDeffileForExport : boolean = true;
@ -1095,7 +1096,6 @@ implementation
StringDispose(DLLImageBase); StringDispose(DLLImageBase);
RelocSection:=true; RelocSection:=true;
RelocSectionSetExplicitly:=false; RelocSectionSetExplicitly:=false;
DLLsource:=false;
UseDeffileForExport:=true; UseDeffileForExport:=true;
librarysearchpath.Done; librarysearchpath.Done;
unitsearchpath.Done; unitsearchpath.Done;
@ -1109,6 +1109,10 @@ implementation
do_build:=false; do_build:=false;
do_make:=true; do_make:=true;
compile_level:=0; compile_level:=0;
{ these two should not be cleared in
DoneGlobals as the IDE might need their value }
IsExe:=false;
DLLsource:=false;
{ Output } { Output }
OutputFile:=''; OutputFile:='';
@ -1183,7 +1187,10 @@ begin
end. end.
{ {
$Log$ $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) * also set initlocalswitches in setcompilemode (merged)
Revision 1.14 2000/09/26 10:50:41 jonas Revision 1.14 2000/09/26 10:50:41 jonas

6
compiler/pmodules.pas
View File

@ -1444,6 +1444,7 @@ implementation
{$endif fixLeaksOnError} {$endif fixLeaksOnError}
begin begin
DLLsource:=islibrary; DLLsource:=islibrary;
IsExe:=true;
parse_only:=false; parse_only:=false;
{ relocation works only without stabs under win32 !! PM } { relocation works only without stabs under win32 !! PM }
{ internal assembler uses rva for stabs info { internal assembler uses rva for stabs info
@ -1713,7 +1714,10 @@ implementation
end. end.
{ {
$Log$ $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) * filepos when unit not found (merged)
Revision 1.11 2000/09/24 21:33:47 peter Revision 1.11 2000/09/24 21:33:47 peter