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

* range check error

Browse Source
This commit is contained in:
peter 2004-01-12 16:35:40 +00:00
parent d68c75f65a
commit b6515b81be
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/ncon.pas
View File

@ -88,7 +88,7 @@ interface
tstringconstnode = class(tnode) tstringconstnode = class(tnode)
value_str : pchar; value_str : pchar;
len : longint; len : aword;
lab_str : tasmlabel; lab_str : tasmlabel;
st_type : tstringtype; st_type : tstringtype;
constructor createstr(const s : string;st:tstringtype);virtual; constructor createstr(const s : string;st:tstringtype);virtual;
@ -950,7 +950,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.56 2003-10-23 14:44:07 peter Revision 1.57 2004-01-12 16:35:40 peter
* range check error
Revision 1.56 2003/10/23 14:44:07 peter
* splitted buildderef and buildderefimpl to fix interface crc * splitted buildderef and buildderefimpl to fix interface crc
calculation calculation