Permalink
Browse files

trim trailing line spaces in most source code files

(no functional change)
  • Loading branch information...
Arnaud Bouchez
Arnaud Bouchez committed Feb 1, 2018
1 parent a406a3c commit d167e964aedf4b944cf6fa32bfecca4bce6b1e02
@@ -40,7 +40,7 @@
Version 1.18
- enhanced compatibility with new targets and compilers (Win32, Win64,
Delphi 2009+, FPC)
- even more refactoring, and fixes
- even more refactoring, and fixes
}
@@ -177,7 +177,7 @@ function UpdateCrc32(aCRC32: cardinal; inBuf: pointer; inLen: integer): cardinal
type
/// generic file information structure, as used in .zip file format
// - used in any header, contains info about following block
// - used in any header, contains info about following block
TFileInfo = packed record
neededVersion: word; // $14
flags: word; // 0
@@ -331,7 +331,7 @@ TZipWrite = class
destructor Destroy; override;
end;
implementation
// special tuned Move() routine, including data overlap bug correction
@@ -108,6 +108,7 @@ uses
SynEcc in '..\SynEcc.pas',
SynCrtSock in '..\SynCrtSock.pas',
SynBidirSock in '..\SynBiDirSock.pas',
//SynOpenSSL,
SynCommons in '..\SynCommons.pas',
SynLog in '..\SynLog.pas',
SynTests in '..\SynTests.pas',
@@ -190,7 +191,31 @@ uses
{$R ..\Vista.res} // includes manifest to identify Windows 10 OS
{$endif}
//
{
procedure test;
var s: RaWUTF8;
sock: THttpClientSocket;
i, status: integer;
begin
sock := THttpClientSocket.Open('synopse.info','',cslTCP,10000,true);
try
for i := 1 to 10 do begin
status := sock.Get('forum/index.php',10000);
assert(status = 200, Format('status=%d i=%d', [status, i]));
s := sock.Content;
assert(s<>'');
end;
FileFromString(s, ExeVersion.ProgramFilePath + 'test.html');
finally
sock.Free;
end;
end;
begin
test;
exit;
//}begin
{$ifdef ISDELPHI2007ANDUP}
{$ifdef DEBUG}
ReportMemoryLeaksOnShutdown := True;
@@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<Flags>
@@ -24,9 +24,10 @@
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default"/>
</Modes>
</RunParams>
<Units Count="51">
<Unit0>
@@ -86,8 +87,9 @@
<IsPartOfProject Value="True"/>
</Unit13>
<Unit14>
<Filename Value="..\SynBidirSock.pas"/>
<Filename Value="..\SynBiDirSock.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="SynBidirSock"/>
</Unit14>
<Unit15>
<Filename Value="..\SynTests.pas"/>
Oops, something went wrong.

0 comments on commit d167e96

Please sign in to comment.