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

* avoid problems with Range Check

Browse Source
This commit is contained in:
pierre 2000-05-23 20:34:26 +00:00
parent cafbded190
commit ed2dab7b31
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/inc/graph/fills.inc
View File

@ -31,6 +31,11 @@ end;
procedure fillpoly(numpoints : Word; var polypoints);
{ disable range check mode }
{$ifopt R+}
{$define OPT_R_WAS_ON}
{$R-}
{$endif}
type
pedge = ^tedge;
tedge = packed record
@ -477,9 +482,16 @@ var
CurrentColor := BackUpColor;
End;
{ restore previous range check mode }
{$ifdef OPT_R_WAS_ON}
{$R+}
{$endif}
{
$Log$
Revision 1.18 2000-02-27 14:41:25 peter
Revision 1.19 2000-05-23 20:34:26 pierre
* avoid problems with Range Check
Revision 1.18 2000/02/27 14:41:25 peter
* removed warnings/notes
Revision 1.17 2000/02/12 13:39:19 jonas
@ -567,4 +579,4 @@ Revision 1.3 1999/07/12 13:27:11 jonas
real mode (but unexplainable "data segnment too large" errors prevent
it from working under real mode anyway)
}
}