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

+ Fixed range check for non-constant indexes in strings

Browse Source
This commit is contained in:
michael 2004-08-02 09:15:03 +00:00
parent f897872df2
commit 8affe37ee1
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/ncgmem.pas
View File

@ -855,7 +855,8 @@ implementation
paramanager.allocparaloc(exprasmlist,paraloc2); paramanager.allocparaloc(exprasmlist,paraloc2);
cg.a_param_reg(exprasmlist,OS_INT,right.location.register,paraloc2); cg.a_param_reg(exprasmlist,OS_INT,right.location.register,paraloc2);
href:=location.reference; href:=location.reference;
dec(href.offset,7); dec(href.offset,sizeof(aint)-offsetdec);
//dec(href.offset,7);
paramanager.allocparaloc(exprasmlist,paraloc1); paramanager.allocparaloc(exprasmlist,paraloc1);
cg.a_param_ref(exprasmlist,OS_INT,href,paraloc1); cg.a_param_ref(exprasmlist,OS_INT,href,paraloc1);
paramanager.freeparaloc(exprasmlist,paraloc1); paramanager.freeparaloc(exprasmlist,paraloc1);
@ -896,7 +897,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.94 2004-07-12 17:58:19 peter Revision 1.95 2004-08-02 09:15:03 michael
+ Fixed range check for non-constant indexes in strings
Revision 1.94 2004/07/12 17:58:19 peter
* remove maxlen field from ansistring/widestrings * remove maxlen field from ansistring/widestrings
Revision 1.93 2004/06/20 08:55:29 florian Revision 1.93 2004/06/20 08:55:29 florian