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

fcl-base: fixed range check error

Browse Source
This commit is contained in:
mattias 2022-06-23 17:38:19 +02:00
parent 8d79dcc0d0
commit ec6f328822
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-base/src/contnrs.pp
View File

@ -15,6 +15,7 @@
{$endif} {$endif}
{$H+} {$H+}
{$ifdef CLASSESINLINE}{$inline on}{$endif} {$ifdef CLASSESINLINE}{$inline on}{$endif}
{$IFOPT R+}{$DEFINE RangeChecking}{$ENDIF}
unit Contnrs; unit Contnrs;
@ -1928,6 +1929,7 @@ end;
{ Default hash Function } { Default hash Function }
{$IFDEF RangeChecking}{$R-}{$ENDIF}
Function RSHash(const S: string; const TableSize: Longword): Longword; Function RSHash(const S: string; const TableSize: Longword): Longword;
const const
b = 378551; b = 378551;
@ -1945,6 +1947,7 @@ begin
end; end;
Result:=(Result and $7FFFFFFF) mod TableSize; Result:=(Result and $7FFFFFFF) mod TableSize;
end; end;
{$IFDEF RangeChecking}{$R+}{$ENDIF}
{ THTNode } { THTNode }

2
packages/fcl-base/src/pascodegen.pp
View File

@ -194,8 +194,6 @@ begin
AddLn('}'); AddLn('}');
end; end;
constructor TPascalCodeGenerator.Create(AOwner: TComponent); constructor TPascalCodeGenerator.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);