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

* use faster method for loading files by default

Browse Source
This commit is contained in:
pierre 2002-09-10 12:19:14 +00:00
parent 6e3d10d0c4
commit f4e98565f9
4 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fp.pas
View File

@ -171,7 +171,7 @@ begin
{ 'M' : TryToMaximizeScreen:=true;}
{$endif fpc}
{$ifdef DEBUG}
'Z' : UseFastBufStreamMethod:=true;
'Z' : UseOldBufStreamMethod:=true;
'X' : CloseImmediately:=true;
{$endif DEBUG}
end;
@ -470,7 +470,10 @@ BEGIN
END.
{
$Log$
Revision 1.12 2002-09-09 06:59:16 pierre
Revision 1.13 2002-09-10 12:19:14 pierre
* use faster method for loading files by default
Revision 1.12 2002/09/09 06:59:16 pierre
* new debug options added
Revision 1.11 2002/09/07 15:40:41 peter

7
ide/fpvars.pas
View File

@ -43,7 +43,7 @@ const ClipboardWindow : PClipboardWindow = nil;
TabsPattern : string{$ifdef GABOR}[40]{$endif} = 'make*;make*.*';
SourceDirs : string{$ifdef GABOR}[40]{$endif} = '';
StandardUnits : string{$ifdef GABOR}[40]{$endif} = '';
UseStandardUnitsInCodeComplete : boolean = true;
UseStandardUnitsInCodeComplete : boolean = false;
UseAllUnitsInCodeComplete : boolean = true;
ShowOnlyUnique : boolean = true;
PrimaryFile : string{$ifdef GABOR}[60]{$endif} = '';
@ -116,7 +116,10 @@ implementation
END.
{
$Log$
Revision 1.5 2002-09-07 15:40:46 peter
Revision 1.6 2002-09-10 12:19:14 pierre
* use faster method for loading files by default
Revision 1.5 2002/09/07 15:40:46 peter
* old logs removed and tabs fixed
Revision 1.4 2002/09/04 14:06:36 pierre

7
ide/weditor.pas
View File

@ -6635,7 +6635,7 @@ begin
begin
while OK and (eofstream(Stream)=false) and (GetLineCount<MaxLineCount) do
begin
if UseFastBufStreamMethod then
if not UseOldBufStreamMethod then
Stream^.Readline(S,LineComplete,hasCR)
else
ReadlnFromStream(Stream,S,LineComplete,hasCR);
@ -7116,7 +7116,10 @@ end;
END.
{
$Log$
Revision 1.30 2002-09-09 06:58:28 pierre
Revision 1.31 2002-09-10 12:19:14 pierre
* use faster method for loading files by default
Revision 1.30 2002/09/09 06:58:28 pierre
+ FastBufStream.readline method added
Revision 1.29 2002/09/07 15:40:48 peter

7
ide/wutils.pas
View File

@ -190,7 +190,7 @@ const LastStrToIntResult : integer = 0;
LastStrToCardResult : integer = 0;
LastHexToCardResult : integer = 0;
DirSep : char = {$ifdef Unix}'/'{$else}'\'{$endif};
UseFastBufStreamMethod : boolean = false;
UseOldBufStreamMethod : boolean = false;
procedure RegisterWUtils;
@ -1362,7 +1362,10 @@ BEGIN
END.
{
$Log$
Revision 1.13 2002-09-09 06:58:27 pierre
Revision 1.14 2002-09-10 12:19:14 pierre
* use faster method for loading files by default
Revision 1.13 2002/09/09 06:58:27 pierre
+ FastBufStream.readline method added
Revision 1.12 2002/09/07 15:40:50 peter