[fpc-pascal]Bug in cmem?

[Vincent Snijders]

Hi,

I think there is a bug in the CReAllocMem function in cmem.

Index: rtl/inc/cmem.pp
===================================================================
RCS file: /FPC/CVS/fpc/rtl/inc/cmem.pp,v
retrieving revision 1.4
diff -r1.4 cmem.pp
91,92c91,92
<           dec(size,sizeof(ptrint));
<           free(p);
---
>           dec(p,sizeof(ptrint));
>           Free(p);

The bug is in the first line; and while you are at it: Free is written
like this throughout the rest of the unit.

Regards,
Vincent Snijders.
###########################################

This message has been scanned by F-Secure Anti-Virus for Microsoft
Exchange.
For more information, connect to http://www.F-Secure.com/