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

* corrected problems with rangecheck

Browse Source 
+ added needed code for no rangecheck  in CRC32 functions in ppu unit
  * enumdef lso need its rangenr reset to zero
    when calling reset_global_defs
This commit is contained in:
pierre 1998-11-30 16:34:45 +00:00
parent 86f0e64b17
commit 65e4bc90c1
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ppu.pas
View File

@ -218,7 +218,11 @@ begin
end;
{$ifopt R+}
{$define Range_check_on}
{$endif opt R+}
{$R- needed here }
{CRC 32}
Function Crc32(Const HStr:String):longint;
var
@ -259,6 +263,10 @@ begin
UpdCrc32:=Crc32Tbl[byte(InitCrc) xor b] xor (InitCrc shr 8);
end;
{$ifdef Range_check_on}
{$R+}
{$undef Range_check_on}
{$endif Range_check_on}
{*****************************************************************************
TPPUFile
@ -784,7 +792,13 @@ end;
end.
{
$Log$
Revision 1.19 1998-11-16 15:41:42 peter
Revision 1.20 1998-11-30 16:34:45 pierre
* corrected problems with rangecheck
+ added needed code for no rangecheck in CRC32 functions in ppu unit
* enumdef lso need its rangenr reset to zero
when calling reset_global_defs
Revision 1.19 1998/11/16 15:41:42 peter
* tp7 didn't like my ifopt H+ :(
Revision 1.18 1998/11/16 12:18:03 peter