paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 16:50:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* better link on target support

Browse Source
This commit is contained in:
peter 2003-09-30 19:54:23 +00:00
parent 5a7ce9fbe3
commit b369a7ee9e
2 changed files with 52 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
compiler/assemble.pas
View File

@ -504,15 +504,30 @@ Implementation
begin
if OutCnt>=AsmOutSize-2 then
AsmFlush;
OutBuf[OutCnt]:=target_info.newline[1];
inc(OutCnt);
inc(AsmSize);
if length(target_info.newline)>1 then
begin
OutBuf[OutCnt]:=target_info.newline[2];
inc(OutCnt);
inc(AsmSize);
end;
if (cs_link_on_target in aktglobalswitches) then
begin
OutBuf[OutCnt]:=target_info.newline[1];
inc(OutCnt);
inc(AsmSize);
if length(target_info.newline)>1 then
begin
OutBuf[OutCnt]:=target_info.newline[2];
inc(OutCnt);
inc(AsmSize);
end;
end
else
begin
OutBuf[OutCnt]:=source_info.newline[1];
inc(OutCnt);
inc(AsmSize);
if length(source_info.newline)>1 then
begin
OutBuf[OutCnt]:=source_info.newline[2];
inc(OutCnt);
inc(AsmSize);
end;
end;
end;
@ -1646,7 +1661,10 @@ Implementation
end.
{
$Log$
Revision 1.55 2003-09-23 17:56:05 peter
Revision 1.56 2003-09-30 19:54:23 peter
* better link on target support
Revision 1.55 2003/09/23 17:56:05 peter
* locals and paras are allocated in the code generation
* tvarsym.localloc contains the location of para/local when
generating code for the current procedure

30
compiler/script.pas
View File

@ -130,10 +130,11 @@ end;
constructor TScript.CreateExec(const s:string);
begin
fn:=FixFileName(s);
if cs_link_on_target in aktglobalswitches then
fn:=TargetFixFileName(s)+target_info.scriptext
fn:=AddExtension(fn,target_info.scriptext)
else
fn:=FixFileName(s)+source_info.scriptext;
fn:=AddExtension(fn,source_info.scriptext);
executable:=true;
data:=TStringList.Create;
end;
@ -165,13 +166,27 @@ end;
procedure TScript.WriteToDisk;
var
t : Text;
t : file;
i : longint;
s : string;
begin
Assign(t,fn);
Rewrite(t);
{$I-}
Rewrite(t,1);
if ioresult<>0 then
exit;
while not data.Empty do
Writeln(t,data.GetFirst);
begin
s:=data.GetFirst;
if (cs_link_on_target in aktglobalswitches) then
s:=s+target_info.newline
else
s:=s+source_info.newline;
Blockwrite(t,s[1],length(s),i);
end;
Close(t);
{$I+}
i:=ioresult;
{$ifdef hasUnix}
if executable then
{$ifdef VER1_0}ChMod{$else}fpchmod{$endif}(fn,493);
@ -419,7 +434,10 @@ end;
end.
{
$Log$
Revision 1.23 2003-09-16 13:42:39 marco
Revision 1.24 2003-09-30 19:54:23 peter
* better link on target support
Revision 1.23 2003/09/16 13:42:39 marco
* Had a useless dependancy on unit unix in 1_1 mode
Revision 1.22 2003/09/14 20:26:18 marco