123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100 |
- {
- $Id$
- Copyright (c) 2000-2002 by Florian Klaempfl
- Code generation for add nodes on the x86-64
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- ****************************************************************************
- }
- unit nx64add;
- {$i fpcdefs.inc}
- interface
- uses
- node,nadd,cpubase,nx86add;
- type
- tx8664addnode = class(tx86addnode)
- procedure second_mul;override;
- end;
- implementation
- uses
- globtype,globals,
- aasmbase,aasmtai,
- cgbase,cga,cgobj;
- {*****************************************************************************
- MUL
- *****************************************************************************}
- procedure tx8664addnode.second_mul;
- var r:Tregister;
- hl4 : tasmlabel;
- begin
- { The location.register will be filled in later (JM) }
- location_reset(location,LOC_REGISTER,OS_INT);
- { Get a temp register and load the left value into it
- and free the location. }
- r:=cg.getintregister(exprasmlist,OS_INT);
- cg.a_load_loc_reg(exprasmlist,OS_INT,left.location,r);
- location_release(exprasmlist,left.location);
- { Allocate RAX. }
- cg.getexplicitregister(exprasmlist,NR_RAX);
- { Load the right value. }
- cg.a_load_loc_reg(exprasmlist,OS_INT,right.location,NR_RAX);
- location_release(exprasmlist,right.location);
- { The mul instruction frees register r.}
- cg.ungetregister(exprasmlist,r);
- { Also allocate RDX, since it is also modified by a mul (JM). }
- cg.getexplicitregister(exprasmlist,NR_RDX);
- emit_reg(A_MUL,S_Q,r);
- if cs_check_overflow in aktlocalswitches then
- begin
- objectlibrary.getlabel(hl4);
- cg.a_jmp_flags(exprasmlist,F_AE,hl4);
- cg.a_call_name(exprasmlist,'FPC_OVERFLOW');
- cg.a_label(exprasmlist,hl4);
- end;
- { Free RDX }
- cg.ungetregister(exprasmlist,NR_RDX);
- { Free RAX }
- cg.ungetregister(exprasmlist,NR_RAX);
- { Allocate a new register and store the result in RAX in it. }
- location.register:=cg.getintregister(exprasmlist,OS_INT);
- emit_reg_reg(A_MOV,S_L,NR_RAX,location.register);
- location_freetemp(exprasmlist,left.location);
- location_freetemp(exprasmlist,right.location);
- end;
- begin
- caddnode:=tx8664addnode;
- end.
- {
- $Log$
- Revision 1.2 2004-02-05 01:24:08 florian
- * several fixes to compile x86-64 system
- Revision 1.1 2004/01/20 12:59:37 florian
- * common addnode code for x86-64 and i386
- }
|