123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081 |
- {
- $Id$
- Copyright (c) 1998-2002 by Florian Klaempfl
- Helper routines for the PowerPC code generator
- 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 nppcutil;
- {$i fpcdefs.inc}
- interface
- uses
- symtype,node,cpubase;
- procedure increfofs(var ref: treference; amount: longint);
- implementation
- uses
- globtype,globals,systems,verbose,
- cutils,
- aasm,cpuasm,
- symconst,symbase,symdef,symsym,symtable,
- {$ifdef GDB}
- gdb,
- {$endif GDB}
- types,
- ncon,nld,
- pass_1,pass_2,
- cgbase,temp_gen,
- cga,regvars,cgobj,cgcpu;
- procedure increfofs(var ref: treference; amount: longint);
- begin
- if (ref.index = R_NO) and
- ((ref.offset + amount) >= low(smallint)) and
- ((ref.offset + amount) <= high(smallint)) then
- inc(offset,amount)
- else
- begin
- cg.load_address_ref_reg(exprasmlist,ref,ref.base);
- ref.index := R_NO;
- ref.symbol := nil;
- ref.offset := amount;
- end;
- end.
- {
- $Log$
- Revision 1.5 2002-05-18 13:34:26 peter
- * readded missing revisions
- Revision 1.4 2002/05/16 19:46:53 carl
- + defines.inc -> fpcdefs.inc to avoid conflicts if compiling by hand
- + try to fix temp allocation (still in ifdef)
- + generic constructor calls
- + start of tassembler / tmodulebase class cleanup
- Revision 1.2 2002/04/06 18:13:02 jonas
- * several powerpc-related additions and fixes
- }
|