URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [exec/] [score/] [cpu/] [powerpc/] [old_exception_processing/] [rtems.S] - Blame information for rev 30

Go to most recent revision | Details | Compare with Previous | View Log


/*  rtems.s
 *
 *  This file contains the single entry point code for
 *  the PowerPC implementation of RTEMS.
 *
 *  Author:     Andrew Bray 
 *
 *  COPYRIGHT (c) 1995 by i-cubed ltd.
 *
 *  To anyone who acknowledges that this file is provided "AS IS"
 *  without any express or implied warranty:
 *      permission to use, copy, modify, and distribute this file
 *      for any purpose is hereby granted without fee, provided that
 *      the above copyright notice and this notice appears in all
 *      copies, and that the name of i-cubed limited not be used in
 *      advertising or publicity pertaining to distribution of the
 *      software without specific, written prior permission.
 *      i-cubed limited makes no representations about the suitability
 *      of this software for any purpose.
 *
 *  Derived from c/src/exec/cpu/no_cpu/rtems.c:
 *
 *  COPYRIGHT (c) 1989-1997.
 *  On-Line Applications Research Corporation (OAR).
 *  Copyright assigned to U.S. Government, 1994.
 *
 *  The license and distribution terms for this file may in
 *  the file LICENSE in this distribution or at
 *  http://www.OARcorp.com/rtems/license.html.
 *
 *  $Id: rtems.S,v 1.2 2001-09-27 11:59:29 chris Exp $
 */
 
#include 
 
        BEGIN_CODE
/*
 *  RTEMS
 *
 *  This routine jumps to the directive indicated in r11.
 *  This routine is used when RTEMS is linked by itself and placed
 *  in ROM.  This routine is the first address in the ROM space for
 *  RTEMS.  The user "calls" this address with the directive arguments
 *  in the normal place.
 *  This routine then jumps indirectly to the correct directive
 *  preserving the arguments.  The directive should not realize
 *  it has been "wrapped" in this way.  The table "_Entry_points"
 *  is used to look up the directive.
 */
 
        ALIGN (4, 2)
        PUBLIC_PROC (RTEMS)
PROC (RTEMS):
#if (PPC_ABI == PPC_ABI_POWEROPEN)
        mflr    r0
        stw     r0, 8(r1)
        stwu    r1, -64(r1)
 
        /* Establish addressing */
        bl      base
base:
        mflr    r12
        addi    r12, r12, tabaddr - base
 
        lwz     r12, Entry_points-abase(r12)
        slwi    r11, r11, 2
        lwzx    r12, r12, r11
 
        stw     r2, 56(r1)
        lwz     r0, 0(r12)
        mtlr    r0
        lwz     r2, 4(r12)
        lwz     r11, 8(r12)
        blrl
        lwz     r2, 56(r1)
        addi    r1, r1, 64
        lwz     r0, 8(r1)
        mtlr    r0
#else
        mflr    r0
        stw     r0, 4(r1)
        stwu    r1, -16(r1)
 
        /* Establish addressing */
        bl      base
base:
        mflr    r12
        addi    r12, r12, tabaddr - base
 
        lwz     r12, Entry_points-abase(r12)
        slwi    r11, r11, 2
        lwzx    r11, r12, r11
 
        stw     r2, 8(r1)
#if (PPC_ABI != PPC_ABI_GCC27)
        stw     r13, 12(r1)
#endif
        mtlr    r11
        lwz     r11, irqinfo-abase(r12)
        lwz     r2, 0(r11)
#if (PPC_ABI != PPC_ABI_GCC27)
        lwz     r13, 4(r11)
#endif
        blrl
        lwz     r2, 8(r1)
#if (PPC_ABI != PPC_ABI_GCC27)
        lwz     r13, 12(r1)
#endif
        addi    r1, r1, 16
        lwz     r0, 4(r1)
        mtlr    r0
#endif
        blr
 
 
        /* Addressability stuff */
tabaddr:
abase:
        EXTERN_VAR (_Entry_points)
Entry_points:
        EXT_SYM_REF (_Entry_points)
#if (PPC_ABI != PPC_ABI_POWEROPEN)
        EXTERN_VAR (_CPU_IRQ_info)
irqinfo:
        EXT_SYM_REF (_CPU_IRQ_info)
#endif
 
#if (PPC_ABI == PPC_ABI_POWEROPEN)
        DESCRIPTOR (RTEMS)
#endif
 
 

Line No.	Rev	Author	Line
1	30	unneback	`/* rtems.s`
2			`*`
3			`* This file contains the single entry point code for`
4			`* the PowerPC implementation of RTEMS.`
5			`*`
6			`* Author: Andrew Bray`
7			`*`
8			`* COPYRIGHT (c) 1995 by i-cubed ltd.`
9			`*`
10			`* To anyone who acknowledges that this file is provided "AS IS"`
11			`* without any express or implied warranty:`
12			`* permission to use, copy, modify, and distribute this file`
13			`* for any purpose is hereby granted without fee, provided that`
14			`* the above copyright notice and this notice appears in all`
15			`* copies, and that the name of i-cubed limited not be used in`
16			`* advertising or publicity pertaining to distribution of the`
17			`* software without specific, written prior permission.`
18			`* i-cubed limited makes no representations about the suitability`
19			`* of this software for any purpose.`
20			`*`
21			`* Derived from c/src/exec/cpu/no_cpu/rtems.c:`
22			`*`
23			`* COPYRIGHT (c) 1989-1997.`
24			`* On-Line Applications Research Corporation (OAR).`
25			`* Copyright assigned to U.S. Government, 1994.`
26			`*`
27			`* The license and distribution terms for this file may in`
28			`* the file LICENSE in this distribution or at`
29			`* http://www.OARcorp.com/rtems/license.html.`
30			`*`
31			`* $Id: rtems.S,v 1.2 2001-09-27 11:59:29 chris Exp $`
32			`*/`
33
34			`#include`
35
36			`BEGIN_CODE`
37			`/*`
38			`* RTEMS`
39			`*`
40			`* This routine jumps to the directive indicated in r11.`
41			`* This routine is used when RTEMS is linked by itself and placed`
42			`* in ROM. This routine is the first address in the ROM space for`
43			`* RTEMS. The user "calls" this address with the directive arguments`
44			`* in the normal place.`
45			`* This routine then jumps indirectly to the correct directive`
46			`* preserving the arguments. The directive should not realize`
47			`* it has been "wrapped" in this way. The table "_Entry_points"`
48			`* is used to look up the directive.`
49			`*/`
50
51			`ALIGN (4, 2)`
52			`PUBLIC_PROC (RTEMS)`
53			`PROC (RTEMS):`
54			`#if (PPC_ABI == PPC_ABI_POWEROPEN)`
55			`mflr r0`
56			`stw r0, 8(r1)`
57			`stwu r1, -64(r1)`
58
59			`/* Establish addressing */`
60			`bl base`
61			`base:`
62			`mflr r12`
63			`addi r12, r12, tabaddr - base`
64
65			`lwz r12, Entry_points-abase(r12)`
66			`slwi r11, r11, 2`
67			`lwzx r12, r12, r11`
68
69			`stw r2, 56(r1)`
70			`lwz r0, 0(r12)`
71			`mtlr r0`
72			`lwz r2, 4(r12)`
73			`lwz r11, 8(r12)`
74			`blrl`
75			`lwz r2, 56(r1)`
76			`addi r1, r1, 64`
77			`lwz r0, 8(r1)`
78			`mtlr r0`
79			`#else`
80			`mflr r0`
81			`stw r0, 4(r1)`
82			`stwu r1, -16(r1)`
83
84			`/* Establish addressing */`
85			`bl base`
86			`base:`
87			`mflr r12`
88			`addi r12, r12, tabaddr - base`
89
90			`lwz r12, Entry_points-abase(r12)`
91			`slwi r11, r11, 2`
92			`lwzx r11, r12, r11`
93
94			`stw r2, 8(r1)`
95			`#if (PPC_ABI != PPC_ABI_GCC27)`
96			`stw r13, 12(r1)`
97			`#endif`
98			`mtlr r11`
99			`lwz r11, irqinfo-abase(r12)`
100			`lwz r2, 0(r11)`
101			`#if (PPC_ABI != PPC_ABI_GCC27)`
102			`lwz r13, 4(r11)`
103			`#endif`
104			`blrl`
105			`lwz r2, 8(r1)`
106			`#if (PPC_ABI != PPC_ABI_GCC27)`
107			`lwz r13, 12(r1)`
108			`#endif`
109			`addi r1, r1, 16`
110			`lwz r0, 4(r1)`
111			`mtlr r0`
112			`#endif`
113			`blr`
114
115
116			`/* Addressability stuff */`
117			`tabaddr:`
118			`abase:`
119			`EXTERN_VAR (_Entry_points)`
120			`Entry_points:`
121			`EXT_SYM_REF (_Entry_points)`
122			`#if (PPC_ABI != PPC_ABI_POWEROPEN)`
123			`EXTERN_VAR (_CPU_IRQ_info)`
124			`irqinfo:`
125			`EXT_SYM_REF (_CPU_IRQ_info)`
126			`#endif`
127
128			`#if (PPC_ABI == PPC_ABI_POWEROPEN)`
129			`DESCRIPTOR (RTEMS)`
130			`#endif`
131
132

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [rtos/] [rtems/] [c/] [src/] [exec/] [score/] [cpu/] [powerpc/] [old_exception_processing/] [rtems.S] - Blame information for rev 30