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

* add inputfile prefix to ppas/link.res

Browse Source
This commit is contained in:
peter 2003-06-12 16:41:51 +00:00
parent 0ea4ac8553
commit ab66b66673
2 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/link.pas
View File

@ -402,8 +402,16 @@ begin
inherited Create;
{ set generic defaults }
FillChar(Info,sizeof(Info),0);
Info.ResName:='link.res';
Info.ScriptName:='script.res';
if cs_link_on_target in aktglobalswitches then
begin
Info.ResName:=outputexedir+inputfile+'_link.res';
Info.ScriptName:=outputexedir+inputfile+'_script.res';
end
else
begin
Info.ResName:='link.res';
Info.ScriptName:='script.res';
end;
{ set the linker specific defaults }
SetDefaultInfo;
{ Allow Parameter overrides for linker info }
@ -656,7 +664,10 @@ initialization
end.
{
$Log$
Revision 1.36 2003-05-09 17:47:02 peter
Revision 1.37 2003-06-12 16:41:51 peter
* add inputfile prefix to ppas/link.res
Revision 1.36 2003/05/09 17:47:02 peter
* self moved to hidden parameter
* removed hdisposen,hnewn,selfn

10
compiler/parser.pas
View File

@ -105,7 +105,10 @@ implementation
stacksize:=target_info.stacksize;
{ open assembler response }
GenerateAsmRes(outputexedir+'ppas');
if cs_link_on_target in aktglobalswitches then
GenerateAsmRes(outputexedir+inputfile+'_ppas')
else
GenerateAsmRes(outputexedir+'ppas');
{ open deffile }
DefFile:=TDefFile.Create(outputexedir+inputfile+target_info.defext);
@ -618,7 +621,10 @@ implementation
end.
{
$Log$
Revision 1.53 2003-05-15 18:58:53 peter
Revision 1.54 2003-06-12 16:41:51 peter
* add inputfile prefix to ppas/link.res
Revision 1.53 2003/05/15 18:58:53 peter
* removed selfpointer_offset, vmtpointer_offset
* tvarsym.adjusted_address
* address in localsymtable is now in the real direction