summaryrefslogtreecommitdiffstats
path: root/qemu/roms/SLOF/slof/fs/exception.fs
diff options
context:
space:
mode:
authorRajithaY <rajithax.yerrumsetty@intel.com>2017-04-25 03:31:15 -0700
committerRajitha Yerrumchetty <rajithax.yerrumsetty@intel.com>2017-05-22 06:48:08 +0000
commitbb756eebdac6fd24e8919e2c43f7d2c8c4091f59 (patch)
treeca11e03542edf2d8f631efeca5e1626d211107e3 /qemu/roms/SLOF/slof/fs/exception.fs
parenta14b48d18a9ed03ec191cf16b162206998a895ce (diff)
Adding qemu as a submodule of KVMFORNFV
This Patch includes the changes to add qemu as a submodule to kvmfornfv repo and make use of the updated latest qemu for the execution of all testcase Change-Id: I1280af507a857675c7f81d30c95255635667bdd7 Signed-off-by:RajithaY<rajithax.yerrumsetty@intel.com>
Diffstat (limited to 'qemu/roms/SLOF/slof/fs/exception.fs')
-rw-r--r--qemu/roms/SLOF/slof/fs/exception.fs154
1 files changed, 0 insertions, 154 deletions
diff --git a/qemu/roms/SLOF/slof/fs/exception.fs b/qemu/roms/SLOF/slof/fs/exception.fs
deleted file mode 100644
index dbf11fb46..000000000
--- a/qemu/roms/SLOF/slof/fs/exception.fs
+++ /dev/null
@@ -1,154 +0,0 @@
-\ *****************************************************************************
-\ * Copyright (c) 2004, 2008 IBM Corporation
-\ * All rights reserved.
-\ * This program and the accompanying materials
-\ * are made available under the terms of the BSD License
-\ * which accompanies this distribution, and is available at
-\ * http://www.opensource.org/licenses/bsd-license.php
-\ *
-\ * Contributors:
-\ * IBM Corporation - initial implementation
-\ ****************************************************************************/
-
-STRUCT
- cell FIELD >r0 cell FIELD >r1 cell FIELD >r2 cell FIELD >r3
- cell FIELD >r4 cell FIELD >r5 cell FIELD >r6 cell FIELD >r7
- cell FIELD >r8 cell FIELD >r9 cell FIELD >r10 cell FIELD >r11
- cell FIELD >r12 cell FIELD >r13 cell FIELD >r14 cell FIELD >r15
- cell FIELD >r16 cell FIELD >r17 cell FIELD >r18 cell FIELD >r19
- cell FIELD >r20 cell FIELD >r21 cell FIELD >r22 cell FIELD >r23
- cell FIELD >r24 cell FIELD >r25 cell FIELD >r26 cell FIELD >r27
- cell FIELD >r28 cell FIELD >r29 cell FIELD >r30 cell FIELD >r31
- cell FIELD >cr cell FIELD >xer cell FIELD >lr cell FIELD >ctr
- cell FIELD >srr0 cell FIELD >srr1 cell FIELD >dar cell FIELD >dsisr
-CONSTANT ciregs-size
-
-
-
-: .16 10 0.r 3 spaces ;
-: .8 8 spaces 8 0.r 3 spaces ;
-: .4regs cr 4 0 DO dup @ .16 8 cells+ LOOP drop ;
-: .fixed-regs
- cr ." R0 .. R7 R8 .. R15 R16 .. R23 R24 .. R31"
- dup 8 0 DO dup .4regs cell+ LOOP drop
-;
-
-: .special-regs
- cr ." CR / XER LR / CTR SRR0 / SRR1 DAR / DSISR"
- cr dup >cr @ .8 dup >lr @ .16 dup >srr0 @ .16 dup >dar @ .16
- cr dup >xer @ .16 dup >ctr @ .16 dup >srr1 @ .16 >dsisr @ .8
-;
-
-: .regs
- cr .fixed-regs
- cr .special-regs
- cr cr
-;
-
-: .hw-exception ( reason-code exception-nr -- )
- ." ( " dup . ." ) "
- CASE
- 200 OF ." Machine Check" ENDOF
- 300 OF ." Data Storage" ENDOF
- 380 OF ." Data Segment" ENDOF
- 400 OF ." Instruction Storage" ENDOF
- 480 OF ." Instruction Segment" ENDOF
- 500 OF ." External" ENDOF
- 600 OF ." Alignment" ENDOF
- 700 OF ." Program" ENDOF
- 800 OF ." Floating-point unavailable" ENDOF
- 900 OF ." Decrementer" ENDOF
- 980 OF ." Hypervisor Decrementer" ENDOF
- C00 OF ." System Call" ENDOF
- D00 OF ." Trace" ENDOF
- F00 OF ." Performance Monitor" ENDOF
- F20 OF ." VMX Unavailable" ENDOF
- 1200 OF ." System Error" ENDOF
- 1600 OF ." Maintenance" ENDOF
- 1800 OF ." Thermal" ENDOF
- dup OF ." Unknown" ENDOF
- ENDCASE
- ." Exception [ " . ." ]"
-;
-
-: .sw-exception ( exception-nr -- )
- ." Exception [ " . ." ] triggered by boot firmware."
-;
-
-\ this word gets also called for non-hardware exceptions.
-: be-hw-exception ( [reason-code] exception-nr -- )
- cr cr
- dup 0> IF .hw-exception ELSE .sw-exception THEN
- cr eregs .regs
-;
-' be-hw-exception to hw-exception-handler
-
-: (boot-exception-handler) ( x1...xn exception-nr -- x1...xn)
- dup IF
- dup 0 > IF
- negate cp 9 emit ." : " type
- ELSE
- CASE
- -6d OF cr ." W3411: Client application returned." cr ENDOF
- -6c OF cr ." E3400: It was not possible to boot from any device "
- ." specified in the VPD." cr
- ENDOF
- -6b OF cr ." E3410: Boot list successfully read from VPD "
- ." but no useful information received." cr
- ENDOF
- -6a OF cr ." E3420: Boot list could not be read from VPD." cr
- ENDOF
- -69 OF
- cr ." E3406: Client application returned an error"
- abort"-str @ count dup IF
- ." : " type cr
- ELSE
- ." ." cr
- 2drop
- THEN
- ENDOF
- -68 OF cr ." E3405: No such device" cr ENDOF
- -67 OF cr ." E3404: Not a bootable device!" cr ENDOF
- -66 OF cr ." E3408: Failed to claim memory for the executable" cr
- ENDOF
- -65 OF cr ." E3407: Load failed" cr ENDOF
- -64 OF cr ." E3403: Bad executable: " abort"-str @ count type cr
- ENDOF
- -63 OF cr ." E3409: Unknown FORTH Word" cr ENDOF
- -2 OF cr ." E3401: Aborting boot, " abort"-str @ count type cr
- ENDOF
- dup OF ." E3402: Aborting boot, internal error" cr ENDOF
- ENDCASE
- THEN
- ELSE
- drop
- THEN
-;
-
-' (boot-exception-handler) to boot-exception-handler
-
-: throw-error ( error-code "error-string" -- )
- skipws 0a parse rot throw
-;
-
-\ Enable external interrupt in msr
-
-: enable-ext-int ( -- )
- msr@ 8000 or msr!
-;
-
-\ Disable external interrupt in msr
-
-: disable-ext-int ( -- )
- msr@ 8000 not and msr!
-;
-
-\ Generate external interrupt through Internal Interrupt Controller of BE
-
-: gen-ext-int ( -- )
- 7fffffff dec! \ Reset decrementer
- enable-ext-int \ Enable interrupt
- FF 20000508418 rx! \ Interrupt priority mask
- 10 20000508410 rx! \ Interrupt priority
-;
-