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

* fixed getintparaloc call for ansi- and widestring range checking

Browse Source
This commit is contained in:
florian 2003-05-15 16:10:37 +00:00
parent 4fa10e85a4
commit a41d686f98
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/ncgmem.pas
View File

@ -784,7 +784,7 @@ implementation
st_ansistring: st_ansistring:
begin begin
rg.saveusedintregisters(exprasmlist,pushed,all_intregisters); rg.saveusedintregisters(exprasmlist,pushed,all_intregisters);
cg.a_param_reg(exprasmlist,OS_INT,right.location.register,paramanager.getintparaloc(1)); cg.a_param_reg(exprasmlist,OS_INT,right.location.register,paramanager.getintparaloc(2));
href:=location.reference; href:=location.reference;
dec(href.offset,7); dec(href.offset,7);
cg.a_param_ref(exprasmlist,OS_INT,href,paramanager.getintparaloc(1)); cg.a_param_ref(exprasmlist,OS_INT,href,paramanager.getintparaloc(1));
@ -824,7 +824,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.53 2003-05-11 21:37:03 peter Revision 1.54 2003-05-15 16:10:37 florian
* fixed getintparaloc call for ansi- and widestring range checking
Revision 1.53 2003/05/11 21:37:03 peter
* moved implicit exception frame from ncgutil to psub * moved implicit exception frame from ncgutil to psub
* constructor/destructor helpers moved from cobj/ncgutil to psub * constructor/destructor helpers moved from cobj/ncgutil to psub
@ -1042,4 +1045,4 @@ end.
* removed unused units * removed unused units
* use tlocation.size in cg.a_*loc*() routines * use tlocation.size in cg.a_*loc*() routines
} }