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

* fixed (hopefully) the ansistring length bug

Browse Source
This commit is contained in:
florian 2004-02-05 16:58:43 +00:00
parent bef7bf3539
commit 571d853415
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ncginl.pas
View File

@ -61,7 +61,7 @@ implementation
cgbase,pass_1,pass_2, cgbase,pass_1,pass_2,
cpuinfo,cpubase,paramgr,procinfo, cpuinfo,cpubase,paramgr,procinfo,
nbas,ncon,ncal,ncnv,nld, nbas,ncon,ncal,ncnv,nld,
tgobj,ncgutil,cgobj tgobj,ncgutil,cgobj,rgobj
{$ifndef cpu64bit} {$ifndef cpu64bit}
,cg64f32 ,cg64f32
{$endif cpu64bit} {$endif cpu64bit}
@ -330,8 +330,7 @@ implementation
objectlibrary.getlabel(lengthlab); objectlibrary.getlabel(lengthlab);
cg.a_cmp_const_reg_label(exprasmlist,OS_ADDR,OC_EQ,0,left.location.register,lengthlab); cg.a_cmp_const_reg_label(exprasmlist,OS_ADDR,OC_EQ,0,left.location.register,lengthlab);
reference_reset_base(href,left.location.register,-8); reference_reset_base(href,left.location.register,-8);
reference_release(exprasmlist,href); hregister:=cg.makeregsize(left.location.register,OS_32);
hregister:=cg.getintregister(exprasmlist,OS_32);
cg.a_load_ref_reg(exprasmlist,OS_32,OS_32,href,hregister); cg.a_load_ref_reg(exprasmlist,OS_32,OS_32,href,hregister);
cg.a_label(exprasmlist,lengthlab); cg.a_label(exprasmlist,lengthlab);
location_reset(location,LOC_REGISTER,OS_32); location_reset(location,LOC_REGISTER,OS_32);
@ -677,7 +676,10 @@ end.
{ {
$Log$ $Log$
Revision 1.53 2004-02-05 01:24:08 florian Revision 1.54 2004-02-05 16:58:43 florian
* fixed (hopefully) the ansistring length bug
Revision 1.53 2004/02/05 01:24:08 florian
* several fixes to compile x86-64 system * several fixes to compile x86-64 system
Revision 1.52 2004/02/02 20:41:59 florian Revision 1.52 2004/02/02 20:41:59 florian