paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 20:14:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed crash with temp ansistring indexing

Browse Source
This commit is contained in:
peter 1999-02-04 17:16:51 +00:00
parent 0368aeb7d1
commit abbd27e3df
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cg386mem.pas
View File

@ -734,7 +734,8 @@ implementation
for example
}
if (p^.location.loc=LOC_MEM) and
(p^.left^.resulttype^.deftype=stringdef) then
assigned(p^.left) and
(p^.left^.resulttype^.deftype=stringdef) then
begin
case pstringdef(p^.left^.resulttype)^.string_typ of
st_ansistring:
@ -849,7 +850,10 @@ implementation
end.
{
$Log$
Revision 1.27 1999-02-04 11:44:46 florian
Revision 1.28 1999-02-04 17:16:51 peter
* fixed crash with temp ansistring indexing
Revision 1.27 1999/02/04 11:44:46 florian
* fixed indexed access of ansistrings to temp. ansistring, i.e.
c:=(s1+s2)[i], the temp is now correctly remove and the generated
code is also fixed