freepascal.compiler/rtl/arm/arm.inc

{
    $Id$

    This file is part of the Free Pascal run time library.
    Copyright (c) 2003 by the Free Pascal development team.

    Processor dependent implementation for the system unit for
    ARM

    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.

    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.

 **********************************************************************}

{$asmmode gas}

procedure fpc_cpuinit;
begin
  asm
    rfs r0
    orr r0,r0,#0x1f0000
    wfs r0
  end;
end;

{****************************************************************************
                       stack frame related stuff
****************************************************************************}

{$define FPC_SYSTEM_HAS_GET_FRAME}
function get_frame:pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
  mov    r0,r11
end ['R0'];


{$define FPC_SYSTEM_HAS_GET_CALLER_ADDR}
function get_caller_addr(framebp:pointer):pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
  movs r0,r0
  beq .Lg_a_null
  ldr r0,[r0,#-4]
.Lg_a_null:
end ['R0'];


{$define FPC_SYSTEM_HAS_GET_CALLER_FRAME}
function get_caller_frame(framebp:pointer):pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
  movs r0,r0
  beq .Lgnf_null
  ldr r0,[r0,#-12]
.Lgnf_null:
end ['R0'];


{$define FPC_SYSTEM_HAS_SPTR}
Function Sptr : pointer;assembler;{$ifdef SYSTEMINLINE}inline;{$endif}
asm
        mov    r0,sp
end ['R0'];


{
{$define FPC_SYSTEM_HAS_FILLCHAR}
Procedure FillChar(var x;count:longint;value:byte);assembler;

* void *memset (dstpp, c, len) */

asm
	mov	a4, a1
	cmp	a2, $8		// at least 8 bytes to do?
	blt	.Fillchar2
	orr	a3, a3, a3, lsl $8
	orr	a3, a3, a3, lsl $16
.Fillchar0:
	tst	a4, $3		// aligned yet?
	strneb	a3, [a4], $1
	subne	a2, a2, $1
	bne	.Fillchar0
	mov	ip, a3
.Fillchar1:
	cmp	a2, $8		// 8 bytes still to do?
	blt	.Fillchar2
	stmia	a4!, {a3, ip}
	sub	a2, a2, $8
	cmp	a2, $8		// 8 bytes still to do?
	blt	.Fillchar2
	stmia	a4!, {a3, ip}
	sub	a2, a2, $8
	cmp	a2, $8		// 8 bytes still to do?
	blt	.Fillchar2
	stmia	a4!, {a3, ip}
	sub	a2, a2, $8
	cmp	a2, $8		// 8 bytes still to do?
	stmgeia	a4!, {a3, ip}
	subge	a2, a2, $8
	bge	.Fillchar1
.Fillchar2:
	movs	a2, a2		// anything left?
	RETINSTR(moveq,pc,lr)	// nope
	rsb	a2, a2, $7
	add	pc, pc, a2, lsl $2
	mov	r0, r0
	strb	a3, [a4], $1
	strb	a3, [a4], $1
	strb	a3, [a4], $1
	strb	a3, [a4], $1
	strb	a3, [a4], $1
	strb	a3, [a4], $1
	strb	a3, [a4], $1
	RETINSTR(mov,pc,lr)
end;

}



{
  $Log$
  Revision 1.7  2004-03-23 21:03:10  florian
    + assembler implementation of fpc_mul_qword
    * fpu exceptions are now generated

  Revision 1.6  2004/03/14 21:45:11  florian
    * draft for qword mul

  Revision 1.5  2004/01/21 23:12:07  florian
    + get_caller_addr/frame implemented

  Revision 1.4  2004/01/20 21:01:57  florian
    * fixed setjump
    * fixed syscalls

  Revision 1.3  2003/11/21 00:40:06  florian
    * some arm issues fixed

  Revision 1.2  2003/09/03 14:09:37  florian
    * arm fixes to the common rtl code
    * some generic math code fixed
    * ...

  Revision 1.1  2003/08/21 16:41:54  florian
    * empty dummy files
    + [long|set]jmp implemented
}