mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 11:09:27 +02:00
- removed unused unit
This commit is contained in:
parent
62fb153a0c
commit
46c1b41a7b
@ -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
|
||||
|
||||
}
|
Loading…
Reference in New Issue
Block a user