paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +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;} { 'M' : TryToMaximizeScreen:=true;}
{$endif fpc} {$endif fpc}
{$ifdef DEBUG} {$ifdef DEBUG}
'Z' : UseFastBufStreamMethod:=true; 'Z' : UseOldBufStreamMethod:=true;
'X' : CloseImmediately:=true; 'X' : CloseImmediately:=true;
{$endif DEBUG} {$endif DEBUG}
end; end;
@ -470,7 +470,10 @@ BEGIN
END. END.
{ {
$Log$ $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 * new debug options added
Revision 1.11 2002/09/07 15:40:41 peter 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*.*'; TabsPattern : string{$ifdef GABOR}[40]{$endif} = 'make*;make*.*';
SourceDirs : string{$ifdef GABOR}[40]{$endif} = ''; SourceDirs : string{$ifdef GABOR}[40]{$endif} = '';
StandardUnits : string{$ifdef GABOR}[40]{$endif} = ''; StandardUnits : string{$ifdef GABOR}[40]{$endif} = '';
UseStandardUnitsInCodeComplete : boolean = true; UseStandardUnitsInCodeComplete : boolean = false;
UseAllUnitsInCodeComplete : boolean = true; UseAllUnitsInCodeComplete : boolean = true;
ShowOnlyUnique : boolean = true; ShowOnlyUnique : boolean = true;
PrimaryFile : string{$ifdef GABOR}[60]{$endif} = ''; PrimaryFile : string{$ifdef GABOR}[60]{$endif} = '';
@ -116,7 +116,10 @@ implementation
END. END.
{ {
$Log$ $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 * old logs removed and tabs fixed
Revision 1.4 2002/09/04 14:06:36 pierre Revision 1.4 2002/09/04 14:06:36 pierre

7
ide/weditor.pas
View File

@ -6635,7 +6635,7 @@ begin
begin begin
while OK and (eofstream(Stream)=false) and (GetLineCount<MaxLineCount) do while OK and (eofstream(Stream)=false) and (GetLineCount<MaxLineCount) do
begin begin
if UseFastBufStreamMethod then if not UseOldBufStreamMethod then
Stream^.Readline(S,LineComplete,hasCR) Stream^.Readline(S,LineComplete,hasCR)
else else
ReadlnFromStream(Stream,S,LineComplete,hasCR); ReadlnFromStream(Stream,S,LineComplete,hasCR);
@ -7116,7 +7116,10 @@ end;
END. END.
{ {
$Log$ $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 + FastBufStream.readline method added
Revision 1.29 2002/09/07 15:40:48 peter 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; LastStrToCardResult : integer = 0;
LastHexToCardResult : integer = 0; LastHexToCardResult : integer = 0;
DirSep : char = {$ifdef Unix}'/'{$else}'\'{$endif}; DirSep : char = {$ifdef Unix}'/'{$else}'\'{$endif};
UseFastBufStreamMethod : boolean = false; UseOldBufStreamMethod : boolean = false;
procedure RegisterWUtils; procedure RegisterWUtils;
@ -1362,7 +1362,10 @@ BEGIN
END. END.
{ {
$Log$ $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 + FastBufStream.readline method added
Revision 1.12 2002/09/07 15:40:50 peter Revision 1.12 2002/09/07 15:40:50 peter