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

* internalerror for string to chararray

Browse Source
This commit is contained in:
peter 2001-01-08 21:45:11 +00:00
parent 49a0170412
commit 35a172090a
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/i386/n386cnv.pas
View File

@ -374,7 +374,11 @@ implementation
regstopush: byte;
begin
with parraydef(resulttype)^ do
arrsize := highrange-lowrange+1;
begin
if highrange<lowrange then
internalerror(75432653);
arrsize := highrange-lowrange+1;
end;
if (left.nodetype = stringconstn) and
{ left.length+1 since there's always a terminating #0 character (JM) }
@ -1493,7 +1497,10 @@ begin
end.
{
$Log$
Revision 1.11 2000-12-25 00:07:32 peter
Revision 1.12 2001-01-08 21:45:11 peter
* internalerror for string to chararray
Revision 1.11 2000/12/25 00:07:32 peter
+ new tlinkedlist class (merge of old tstringqueue,tcontainer and
tlinkedlist objects)