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

* array constructor support

Browse Source
This commit is contained in:
peter 1999-08-14 00:36:05 +00:00
parent a52f87a05d
commit 2e99c59182
2 changed files with 26 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cg386mem.pas
View File

@ -632,7 +632,7 @@ implementation
hightree:=genloadnode(pvarsym(srsym),p^.left^.symtable);
firstpass(hightree);
secondpass(hightree);
emit_mov_loc_ref(hightree^.location,href);
emit_mov_loc_ref(hightree^.location,href,S_L);
disposetree(hightree);
end;
emitrangecheck(p^.right,p^.left^.resulttype);
@ -849,7 +849,10 @@ implementation
end.
{
$Log$
Revision 1.49 1999-08-04 00:22:53 florian
Revision 1.50 1999-08-14 00:36:05 peter
* array constructor support
Revision 1.49 1999/08/04 00:22:53 florian
* renamed i386asm and i386base to cpuasm and cpubase
Revision 1.48 1999/08/03 22:02:47 peter

30
compiler/cgai386.pas
View File

@ -44,7 +44,7 @@ unit cgai386;
procedure emit_flag2reg(flag:tresflags;hregister:tregister);
procedure emit_reg_reg(i : tasmop;s : topsize;reg1,reg2 : tregister);
procedure emitcall(const routine:string);
procedure emit_mov_loc_ref(const t:tlocation;const ref:treference);
procedure emit_mov_loc_ref(const t:tlocation;const ref:treference;siz:topsize);
procedure emit_mov_loc_reg(const t:tlocation;reg:tregister);
procedure emit_push_loc(const t:tlocation);
@ -310,26 +310,35 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end;
procedure emit_mov_loc_ref(const t:tlocation;const ref:treference);
procedure emit_mov_loc_ref(const t:tlocation;const ref:treference;siz:topsize);
var
hreg : tregister;
begin
case t.loc of
LOC_REGISTER,
LOC_CREGISTER : begin
exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,S_L,
exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,siz,
t.register,newreference(ref))));
ungetregister32(t.register); { the register is not needed anymore }
end;
LOC_MEM,
LOC_REFERENCE : begin
if t.reference.is_immediate then
exprasmlist^.concat(new(pai386,op_const_ref(A_MOV,S_L,
exprasmlist^.concat(new(pai386,op_const_ref(A_MOV,siz,
t.reference.offset,newreference(ref))))
else
begin
exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,S_L,
newreference(t.reference),R_EDI)));
exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,S_L,
R_EDI,newreference(ref))));
case siz of
S_B : hreg:=reg32toreg8(getregister32);
S_W : hreg:=reg32toreg16(getregister32);
S_L : hreg:=R_EDI;
end;
exprasmlist^.concat(new(pai386,op_ref_reg(A_MOV,siz,
newreference(t.reference),hreg)));
exprasmlist^.concat(new(pai386,op_reg_ref(A_MOV,siz,
hreg,newreference(ref))));
if siz<>S_L then
ungetregister(hreg);
{ we can release the registers }
{ but only AFTER the MOV! Important for the optimizer!
(JM)}
@ -3188,7 +3197,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end.
{
$Log$
Revision 1.28 1999-08-07 14:20:57 florian
Revision 1.29 1999-08-14 00:36:07 peter
* array constructor support
Revision 1.28 1999/08/07 14:20:57 florian
* some small problems fixed
Revision 1.27 1999/08/05 23:45:09 peter