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

* range check error

Browse Source
This commit is contained in:
peter 2004-05-25 18:51:14 +00:00
parent a1b8d8bf6b
commit 5abb93e77d
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symdef.pas
View File

@ -5483,7 +5483,7 @@ implementation
else
writeproc(tpropertysym(sym).storedaccess,4);
rttiList.concat(Tai_const.Create_32bit(tpropertysym(sym).index));
rttiList.concat(Tai_const.Create_32bit(tpropertysym(sym).default));
rttiList.concat(Tai_const.Create_32bit(cardinal(tpropertysym(sym).default)));
rttiList.concat(Tai_const.Create_16bit(count));
inc(count);
rttiList.concat(Tai_const.Create_8bit(proctypesinfo));
@ -6150,7 +6150,10 @@ implementation
end.
{
$Log$
Revision 1.239 2004-05-23 20:57:10 peter
Revision 1.240 2004-05-25 18:51:14 peter
* range check error
Revision 1.239 2004/05/23 20:57:10 peter
* removed unused voidprocdef
Revision 1.238 2004/05/23 15:23:30 peter