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

+ Patch from Christian Iversen to implement LIBPREFIX/SUFFIX/EXTENSION directives

Browse Source
This commit is contained in:
michael 2004-08-02 07:15:54 +00:00
parent bd9e93087c
commit ff069c5ecc
2 changed files with 44 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
compiler/finput.pas
View File

@ -132,12 +132,14 @@ interface
type
tmodulebase = class(TLinkedListItem)
{ index }
unit_index : longint; { global counter for browser }
unit_index : longint; { global counter for browser }
{ status }
state : tmodulestate;
state : tmodulestate;
{ sources }
sourcefiles : tinputfilemanager;
sourcefiles : tinputfilemanager;
{ paths and filenames }
paramallowoutput : boolean; { original allowoutput parameter }
paramfn, { original filename }
path, { path where the module is find/created }
outputpath, { path where the .s / .o / exe are created }
modulename, { name of the module in uppercase }
@ -613,6 +615,9 @@ uses
p : dirstr;
n : NameStr;
e : ExtStr;
prefix,
suffix,
extension : NameStr;
begin
stringdispose(objfilename);
stringdispose(newfilename);
@ -624,6 +629,8 @@ uses
stringdispose(outputpath);
stringdispose(path);
{ Create names }
paramfn := stringdup(fn);
paramallowoutput := allowoutput;
fsplit(fn,p,n,e);
n:=FixFileName(n);
{ set path }
@ -643,18 +650,25 @@ uses
objfilename:=stringdup(p+n+target_info.objext);
ppufilename:=stringdup(p+n+target_info.unitext);
{ lib and exe could be loaded with a file specified with -o }
if AllowOutput and (OutputFile<>'') and (compile_level=1) then
n:=OutputFile;
prefix := target_info.sharedlibprefix;
suffix := '';
extension := target_info.sharedlibext;
if AllowOutput and (compile_level=1) then
begin
if OutputFile <> '' then n:=OutputFile;
if Assigned(OutputPrefix) then prefix := OutputPrefix^;
if Assigned(OutputSuffix) then suffix := OutputSuffix^;
if OutputExtension <> '' then extension := OutputExtension;
end;
staticlibfilename:=stringdup(p+target_info.staticlibprefix+n+target_info.staticlibext);
{ output dir of exe can be specified separatly }
if AllowOutput and (OutputExeDir<>'') then
p:=OutputExeDir
else
p:=path^;
if target_info.system in [system_i386_WIN32,system_i386_wdosx] then
sharedlibfilename:=stringdup(p+n+target_info.sharedlibext)
else
sharedlibfilename:=stringdup(p+target_info.sharedlibprefix+n+target_info.sharedlibext);
sharedlibfilename:=stringdup(p+prefix+n+suffix+extension);
exefilename:=stringdup(p+n+target_info.exeext);
mapfilename:=stringdup(p+n+'.map');
end;
@ -712,7 +726,10 @@ uses
end.
{
$Log$
Revision 1.25 2004-06-20 08:55:29 florian
Revision 1.26 2004-08-02 07:15:54 michael
+ Patch from Christian Iversen to implement LIBPREFIX/SUFFIX/EXTENSION directives
Revision 1.25 2004/06/20 08:55:29 florian
* logs truncated
Revision 1.24 2004/06/16 20:07:07 florian

24
compiler/globals.pas
View File

@ -112,14 +112,17 @@ interface
var
{ specified inputfile }
inputdir : dirstr;
inputfile : namestr;
inputextension : extstr;
inputdir : dirstr;
inputfile : namestr;
inputextension : extstr;
{ specified outputfile with -o parameter }
outputfile : namestr;
outputfile : namestr;
outputprefix : pstring;
outputsuffix : pstring;
outputextension : namestr;
{ specified with -FE or -FU }
outputexedir : dirstr;
outputunitdir : dirstr;
outputexedir : dirstr;
outputunitdir : dirstr;
{ things specified with parameters }
paralinkoptions,
@ -1803,6 +1806,10 @@ implementation
{ Output }
OutputFile:='';
OutputPrefix:=Nil;
OutputSuffix:=Nil;
OutputExtension:='';
OutputExeDir:='';
OutputUnitDir:='';
@ -1913,7 +1920,10 @@ implementation
end.
{
$Log$
Revision 1.133 2004-07-17 15:51:57 jonas
Revision 1.134 2004-08-02 07:15:54 michael
+ Patch from Christian Iversen to implement LIBPREFIX/SUFFIX/EXTENSION directives
Revision 1.133 2004/07/17 15:51:57 jonas
* shell now returns an exitcode
* print an error if linking failed when linking was done using a script