paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 06:09:22 +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

23
compiler/assemble.pas
View File

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