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

* simplified TExternalAssemblerOutputFile.AsmLn

Browse Source 
git-svn-id: trunk@34853 -
This commit is contained in:
Jonas Maebe 2016-11-09 19:51:24 +00:00
parent 74a49b5f91
commit 20a152d4e9
1 changed files with 9 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/assemble.pas
View File

@ -567,33 +567,24 @@ Implementation
Procedure TExternalAssemblerOutputFile.AsmLn;
var
newline: pshortstring;
begin
MaybeAddLinePostfix;
if OutCnt>=AsmOutSize-2 then
AsmFlush;
if (cs_link_on_target in current_settings.globalswitches) 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
newline:=@target_info.newline
else
newline:=@source_info.newline;
OutBuf[OutCnt]:=newline^[1];
inc(OutCnt);
inc(AsmSize);
if length(newline^)>1 then
begin
OutBuf[OutCnt]:=source_info.newline[1];
OutBuf[OutCnt]:=newline^[2];
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;