paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 17:08:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix compilation with range check on by redefining tat array in ClearComments procedure

Browse Source 
git-svn-id: trunk@33015 -
This commit is contained in:
pierre 2016-01-28 17:14:11 +00:00
parent d081d9fdc0
commit 315ce0447b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/fprcp/comments.pp
View File

@ -4,7 +4,7 @@ procedure ClearComments(nesting:longbool;__buf:pointer;size:longint);
implementation
procedure ClearComments(nesting:longbool;__buf:pointer;size:longint);
type
tat=array[1..1]of char;
tat=array[1..2]of char;
pat=^tat;
pblock=^tblock;
tblock=record