mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 13:49:29 +02:00
* IsExe restored
This commit is contained in:
parent
dc1bba3973
commit
f95a082233
@ -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
|
||||
|
||||
}
|
||||
}
|
@ -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
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue
Block a user