- removed unused unit

This commit is contained in:
Jonas Maebe 2005-02-26 15:06:26 +00:00
parent 62fb153a0c
commit 46c1b41a7b

View File

@ -1,72 +0,0 @@
{
$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.7 2005-02-14 17:13:10 peter
* truncate log
}