paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 16:49:37 +01: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 else
writeproc(tpropertysym(sym).storedaccess,4); writeproc(tpropertysym(sym).storedaccess,4);
rttiList.concat(Tai_const.Create_32bit(tpropertysym(sym).index)); 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)); rttiList.concat(Tai_const.Create_16bit(count));
inc(count); inc(count);
rttiList.concat(Tai_const.Create_8bit(proctypesinfo)); rttiList.concat(Tai_const.Create_8bit(proctypesinfo));
@ -6150,7 +6150,10 @@ implementation
end. end.
{ {
$Log$ $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 * removed unused voidprocdef
Revision 1.238 2004/05/23 15:23:30 peter Revision 1.238 2004/05/23 15:23:30 peter