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

* fix bug #2438

Browse Source
This commit is contained in:
peter 2003-04-11 15:01:23 +00:00
parent c49bd10499
commit 2e4c0445fa
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nld.pas
View File

@ -673,8 +673,8 @@ implementation
{ just emit a warning, delphi gives an } { just emit a warning, delphi gives an }
{ error, only if the type definition of } { error, only if the type definition of }
{ of the string is less < 255 characters } { of the string is less < 255 characters }
if (tstringconstnode(right).len if not is_open_string(left.resulttype.def) and
> tstringdef(left.resulttype.def).len) then (tstringconstnode(right).len > tstringdef(left.resulttype.def).len) then
cgmessage(type_w_string_too_long); cgmessage(type_w_string_too_long);
inserttypeconv(right,left.resulttype); inserttypeconv(right,left.resulttype);
if (tstringconstnode(right).len=0) then if (tstringconstnode(right).len=0) then
@ -1257,7 +1257,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.82 2003-03-28 19:16:56 peter Revision 1.83 2003-04-11 15:01:23 peter
* fix bug 2438
Revision 1.82 2003/03/28 19:16:56 peter
* generic constructor working for i386 * generic constructor working for i386
* remove fixed self register * remove fixed self register
* esi added as address register for i386 * esi added as address register for i386