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

* avoid overflow on $8000000 with $Q-

Browse Source
This commit is contained in:
pierre 1998-10-05 17:22:54 +00:00
parent 11e68b67f5
commit 21ae990973
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/systemh.inc
View File

@ -32,6 +32,8 @@
****************************************************************************} ****************************************************************************}
Type Type
{$Q-}
{ $8000000 creates a longint overfow !! }
Longint = $80000000..$7fffffff; Longint = $80000000..$7fffffff;
Integer = -32768..32767; Integer = -32768..32767;
shortint = -128..127; shortint = -128..127;
@ -403,7 +405,10 @@ const
{ {
$Log$ $Log$
Revision 1.35 1998-10-05 12:32:52 peter Revision 1.36 1998-10-05 17:22:54 pierre
* avoid overflow on $8000000 with $Q-
Revision 1.35 1998/10/05 12:32:52 peter
+ assert() support + assert() support
Revision 1.34 1998/10/01 14:54:48 peter Revision 1.34 1998/10/01 14:54:48 peter