OpenBIOS November 2009

openbios@openbios.org

15 participants
81 discussions

Re: [OpenBIOS] Sparc64 OpenBIOS
by Nick Couchman 18 Nov '09

18 Nov '09

Also...I'm running into a problem when I try to do "see open-package" - I get an "Unhandled Exception": 0 > see open-package : open-package create-instance dup 0= if 3drop 0 exit >r strdup r@ >in.arguments 2! (lit) (lit) then Unhandled Exception 0x6f70656dffffe000 PC = 0x00000000ffd10e3c NPC = 0x00000000ffd10e40 Stopping execution Maybe this has something to do with me trying to view the function outside of its execution context, but just seems weird that most/all of the other ones work fine, and this one generates this error. -Nick >>> On 2009/11/17 at 08:12, Tarl Neustaedter <Tarl.Neustaedter(a)Sun.COM> wrote: > [...] >> I also figured out that for some of the words to become available I have to > actually execute a real boot - not sure why. >> > > The primary booter you are reading from blocks 1-15 of the boot > partition create a bunch of words (most importantly, do-boot). It also > creates a package, probably /package/hsfs-file-system > >> Here's the output from "do-boot" once I turn on debugging for Solaris Nevada > B127: >> >> 0 > do-boot >> : do-boot ( Empty ) >> 00000000ffe388e8: parse-bootargs ( Empty ) >> 00000000ffe388f0: halt? ( 0 ) >> 00000000ffe388f8: do?branch ( Empty ) >> 00000000ffe38948: get-bootdev ( Empty ) >> 00000000ffe38950: load-pkg ( Empty ) >> 00000000ffe38958: mount-root >> seek failed >> >> Can't mount root >> Aborted. >> 0 > >> >> Again, not sure why it can't mount-root, but that seems to be the issue. > > Yup. The seek failed indicates it wasn't able to read something it > needed to read. So the next step is to do > the above, only instead of calling mount-root, figure out what > mount-root has in it, and execute those one-by-one at the ok prompt. Or > use the debugger to single step through it. > > Somewhere in there either you are coming up with some bad disk > addresses, or the HBA driver is failing a read. The alternative would be > to debug the HBA driver and see what disk reads you are being asked to > do, and try to trace backwards. -------- This e-mail may contain confidential and privileged material for the sole use of the intended recipient. If this email is not intended for you, or you are not responsible for the delivery of this message to the intended recipient, please note that this message may contain SEAKR Engineering (SEAKR) Privileged/Proprietary Information. In such a case, you are strictly prohibited from downloading, photocopying, distributing or otherwise using this message, its contents or attachments in any way. If you have received this message in error, please notify us immediately by replying to this e-mail and delete the message from your mailbox. Information contained in this message that does not relate to the business of SEAKR is neither endorsed by nor attributable to SEAKR.

2 1

Re: [OpenBIOS] Sparc64 OpenBIOS
by Nick Couchman 17 Nov '09

17 Nov '09

>>> On 2009/11/16 at 07:51, Mark Cave-Ayland <mark.cave-ayland(a)siriusit.co.uk> wrote: > > Hi Nick, > > By default the OpenBIOS fcode evaluator creates headerless words, and so > they won't appear in any wordlists which are visible to the system. > > In order to make the words visible, you need to open up > forth/admin/nvram.fs and change the value of fcode-debug? from false to > true in the NVRAM variables section. If you then rebuild OpenBIOS, the > words generated by the Fcode evaluator will then show up in the relevant > package when you type "words". I also figured out that for some of the words to become available I have to actually execute a real boot - not sure why. > > Incidentally, I see that Blue Swirl has also committed the Forth source > debugger over the weekend, so you should be able to do "debug do-boot" > followed by "do-boot" and then step through the process to see where it > fails. Here's the output from "do-boot" once I turn on debugging for Solaris Nevada B127: 0 > do-boot : do-boot ( Empty ) 00000000ffe388e8: parse-bootargs ( Empty ) 00000000ffe388f0: halt? ( 0 ) 00000000ffe388f8: do?branch ( Empty ) 00000000ffe38948: get-bootdev ( Empty ) 00000000ffe38950: load-pkg ( Empty ) 00000000ffe38958: mount-root seek failed Can't mount root Aborted. 0 > Again, not sure why it can't mount-root, but that seems to be the issue. And, here's the output from a debug do-boot for Solaris 9: 0 > do-boot : do-boot ( Empty ) 00000000ffe36b30: sign-on FCode UFS Reader 1.12 00/07/17 15:48:16. ( Empty ) 00000000ffe36b38: real-devname ( Empty ) 00000000ffe36b40: halt? ( 0 ) 00000000ffe36b48: do?branch ( Empty ) 00000000ffe36b98: loader-base ( 6000 ) 00000000ffe36ba0: plat-booter$ ( 6000 ffe359f0 12 ) 00000000ffe36ba8: diagnostic-mode? ( 6000 ffe359f0 12 ffffffffffffffff ) 00000000ffe36bb0: do?branch ( 6000 ffe359f0 12 ) 00000000ffe36bc0: (") ( 6000 ffe359f0 12 ffe36bd0 9 ) 00000000ffe36be0: type Loading: ( 6000 ffe359f0 12 ) 00000000ffe36be8: 2dup ( 6000 ffe359f0 12 ffe359f0 12 ) 00000000ffe36bf0: type /platform//ufsboot ( 6000 ffe359f0 12 ) 00000000ffe36bf8: cr ( 6000 ffe359f0 12 ) 00000000ffe36c00: get-file ( ffffffffffffffff ) 00000000ffe36c08: do?branch ( Empty ) 00000000ffe36c18: loader-base ( 6000 ) 00000000ffe36c20: def-booter$ ( 6000 ffe359f0 17 ) 00000000ffe36c28: diagnostic-mode? ( 6000 ffe359f0 17 ffffffffffffffff ) 00000000ffe36c30: do?branch ( 6000 ffe359f0 17 ) 00000000ffe36c40: (") ( 6000 ffe359f0 17 ffe36c50 9 ) 00000000ffe36c60: type Loading: ( 6000 ffe359f0 17 ) 00000000ffe36c68: 2dup ( 6000 ffe359f0 17 ffe359f0 17 ) 00000000ffe36c70: type /platform/sun4u/ufsboot ( 6000 ffe359f0 17 ) 00000000ffe36c78: cr ( 6000 ffe359f0 17 ) 00000000ffe36c80: get-file ( ffffffffffffffff ) 00000000ffe36c88: do?branch ( Empty ) 00000000ffe36c98: (") ( ffe36ca8 11 ) 00000000ffe36cc0: type Boot load failed. ( Empty ) 00000000ffe36cc8: cr ( Empty ) 00000000ffe36cd0: exit ok -Nick > > > HTH, > > Mark. -------- This e-mail may contain confidential and privileged material for the sole use of the intended recipient. If this email is not intended for you, or you are not responsible for the delivery of this message to the intended recipient, please note that this message may contain SEAKR Engineering (SEAKR) Privileged/Proprietary Information. In such a case, you are strictly prohibited from downloading, photocopying, distributing or otherwise using this message, its contents or attachments in any way. If you have received this message in error, please notify us immediately by replying to this e-mail and delete the message from your mailbox. Information contained in this message that does not relate to the business of SEAKR is neither endorsed by nor attributable to SEAKR.

3 2

Re: [OpenBIOS] Sparc64 OpenBIOS
by Nick Couchman 17 Nov '09

17 Nov '09

So, on the Nevada b127 boot attempt (and on Solaris 10 - output is identical), here's the output from "see do-boot" (note that "boot -H cdrom" doesn't seem to make this word available - I have to do a real boot before it loads it and I can see what it's attempting to do): 0 > see do-boot : do-boot parse-bootargs halt? if " Halted with -H flag. " type cr exit get-bootdev load-pkg mount-root zflag? nested? invert and if fs-name$ open-zfs-fs load-file setup-props exec-file ; ok So, then I type the following: 0 > parse-bootargs ok 0 > get-bootdev ok 0 > load-pkg ok 0 > mount-root seek failed Can't mount root Aborted. 0 > Looks like maybe it's failing on mounting the root device? For Opensolaris, I get "Unsupported image format" and the "do-boot" word doesn't ever become available. For Solaris 9, the error is: FCode UFS Reader 1.12 00/07/17 15:48:16. Loading: /platform//ufsboot Loading: /platform/sun4u/ufsboot Boot load failed. ok and do-boot looks like this: 0 > see do-boot : do-boot sign-on real-devname halt? if " Halted with -H flag. " type cr exit loader-base plat-booter$ diagnostic-mode? if " Loading: " type 2dup type cr get-file if loader-base def-booter$ diagnostic-mode? if " Loading: " type 2dup type cr get-file if " Boot load failed." type cr exit execit ; ok In this case, it looks like there are some variables in there, and I'm not sure what to put for them or what it's expecting, nor am I sure what steps I need to try or what to skip. Thanks - Nick >>> On 2009/11/15 at 15:46, Tarl Neustaedter <Tarl.Neustaedter(a)Sun.COM> wrote: > Nick Couchman wrote: >> [...] >> I also tried the "boot -H" option and I get the following: >> 0 > boot -H cdrom >> [sparc64] Booting file '-H' with parameters 'cdrom' >> ok >> >> >> I assume this is the point where I really need the debugger and the > breakpoints so that I can step through the rest of the boot process > piece-by-piece. >> > > > Ah - cool. What I'd suggest doing is, right after getting to the ok > prompt on boot -H: > > ok see do-boot > > What you should see is something like what's in the boot.fth from > opensolaris: > http://src.opensolaris.org/source/xref/onnv/onnv-gate/usr/src/psm/stand/boo… > lks/common/boot.fth > > 657 : do-boot ( -- ) > 658 parse-bootargs > 659 halt? if > 660 ." Halted with -H flag. " cr > 661 exit > 662 then > 663 get-bootdev > 664 load-pkg > 665 mount-root > 666 zflag? nested? invert and if > 667 fs-name$ open-zfs-fs > 668 then > 669 load-file ( virt ) > 670 setup-props > 671 exec-file ( ) > 672 ; > > So, we've already parsed bootargs, let's do the rest of the method > manually (skipping zflag stuff, because I presume on a cdrom you don't > have zfs). > > ok false to halt? \ undo the -H flag just for the heck of it > ok get-bootdev > ok load-pkg > ok mount-root > ok load-file > ok setup-props > ok exec-file > > Somewhere in there you'll see failures, which will give you a better > feel for what's going wrong. Once you figure out which one it is, repeat > the process, but manually executing the method which caused problems. > This would be easier with a debugger, but it's still possible without it. -------- This e-mail may contain confidential and privileged material for the sole use of the intended recipient. If this email is not intended for you, or you are not responsible for the delivery of this message to the intended recipient, please note that this message may contain SEAKR Engineering (SEAKR) Privileged/Proprietary Information. In such a case, you are strictly prohibited from downloading, photocopying, distributing or otherwise using this message, its contents or attachments in any way. If you have received this message in error, please notify us immediately by replying to this e-mail and delete the message from your mailbox. Information contained in this message that does not relate to the business of SEAKR is neither endorsed by nor attributable to SEAKR.

2 1

Re: [OpenBIOS] Sparc64 OpenBIOS
by Nick Couchman 17 Nov '09

17 Nov '09

>>> On 2009/11/17 at 08:12, Tarl Neustaedter <Tarl.Neustaedter(a)Sun.COM> wrote: > Yup. The seek failed indicates it wasn't able to read something it > needed to read. So the next step is to do > the above, only instead of calling mount-root, figure out what > mount-root has in it, and execute those one-by-one at the ok prompt. Or > use the debugger to single step through it. Here's that output: 0 > mount-root : mount-root ( Empty ) 00000000ffe35d28: boot-dev$ ( ffe357a8 6 ) 00000000ffe35d30: fs-pkg$ ( ffe357a8 6 ffe317c0 10 ) 00000000ffe35d38: $open-package seek failed ( 0 ) 00000000ffe35d40: (lit) ( 0 ffe35728 ) 00000000ffe35d50: (to) ( Empty ) 00000000ffe35d58: fs-ih ( 0 ) 00000000ffe35d60: 0= ( ffffffffffffffff ) 00000000ffe35d68: do?branch ( Empty ) 00000000ffe35d78: (") ( ffe35d88 10 ) 00000000ffe35d98: die Can't mount root Aborted. 0 > So, I added debug for "$open-package" which led to "open-package", which I also debugged - here's the output from mount-root after turning on all that debugging: 0 > mount-root : mount-root ( Empty ) 00000000ffe35d28: boot-dev$ ( ffe357a8 6 ) 00000000ffe35d30: fs-pkg$ ( ffe357a8 6 ffe317c0 10 ) 00000000ffe35d38: $open-package : $open-package ( ffe357a8 6 ffe317c0 10 ) 00000000ffe13690: find-package ( ffe357a8 6 ffe32558 ffffffffffffffff ) 00000000ffe13698: do?branch ( ffe357a8 6 ffe32558 ) 00000000ffe136a8: open-package : open-package ( ffe357a8 6 ffe32558 ) 00000000ffe13548: create-instance ( ffe357a8 6 ffe4ad30 ) 00000000ffe13550: dup ( ffe357a8 6 ffe4ad30 ffe4ad30 ) 00000000ffe13558: 0= ( ffe357a8 6 ffe4ad30 0 ) 00000000ffe13560: do?branch ( ffe357a8 6 ffe4ad30 ) 00000000ffe13588: >r ( ffe357a8 6 ) 00000000ffe13590: strdup ( ffe493a0 6 ) 00000000ffe13598: r@ ( ffe493a0 6 ffe4ad30 ) 00000000ffe135a0: >in.arguments ( ffe493a0 6 ffe4ad78 ) 00000000ffe135a8: 2! ( Empty ) 00000000ffe135b0: (lit) ( ffe135e0 ) 00000000ffe135c0: (lit) ( ffe135e0 4 ) 00000000ffe135d0: dobranch ( ffe135e0 4 ) 00000000ffe135e8: r@ ( ffe135e0 4 ffe4ad30 ) 00000000ffe135f0: (lit) ( ffe135e0 4 ffe4ad30 ffe13310 ) 00000000ffe13600: catch : open-package ( 1 ffe2fe38 ffe4b1d8 ffe4b548 0 0 ffe2b238 ) 00000000ffe13548: create-instance ( 1 ffe2fe38 ffe4b1d8 ffe4b548 0 0 ffe4b558 ) 00000000ffe13550: dup ( 1 ffe2fe38 ffe4b1d8 ffe4b548 0 0 ffe4b558 ffe4b558 ) 00000000ffe13558: 0= ( 1 ffe2fe38 ffe4b1d8 ffe4b548 0 0 ffe4b558 0 ) 00000000ffe13560: do?branch ( 1 ffe2fe38 ffe4b1d8 ffe4b548 0 0 ffe4b558 ) 00000000ffe13588: >r ( 1 ffe2fe38 ffe4b1d8 ffe4b548 0 0 ) 00000000ffe13590: strdup ( 1 ffe2fe38 ffe4b1d8 ffe4b548 0 0 ) 00000000ffe13598: r@ ( 1 ffe2fe38 ffe4b1d8 ffe4b548 0 0 ffe4b558 ) 00000000ffe135a0: >in.arguments ( 1 ffe2fe38 ffe4b1d8 ffe4b548 0 0 ffe4b5a0 ) 00000000ffe135a8: 2! ( 1 ffe2fe38 ffe4b1d8 ffe4b548 ) 00000000ffe135b0: (lit) ( 1 ffe2fe38 ffe4b1d8 ffe4b548 ffe135e0 ) 00000000ffe135c0: (lit) ( 1 ffe2fe38 ffe4b1d8 ffe4b548 ffe135e0 4 ) 00000000ffe135d0: dobranch ( 1 ffe2fe38 ffe4b1d8 ffe4b548 ffe135e0 4 ) 00000000ffe135e8: r@ ( 1 ffe2fe38 ffe4b1d8 ffe4b548 ffe135e0 4 ffe4b558 ) 00000000ffe135f0: (lit) ( 1 ffe2fe38 ffe4b1d8 ffe4b548 ffe135e0 4 ffe4b558 ffe13310 ) 00000000ffe13600: catch ( 1 ffe2fe38 ffe4b1d8 ffe4b548 ffffffffffffffff 0 ) 00000000ffe13608: do?branch ( 1 ffe2fe38 ffe4b1d8 ffe4b548 ffffffffffffffff ) 00000000ffe13628: do?branch ( 1 ffe2fe38 ffe4b1d8 ffe4b548 ) 00000000ffe13638: r> ( 1 ffe2fe38 ffe4b1d8 ffe4b548 ffe4b558 ) 00000000ffe13640: dobranch ( 1 ffe2fe38 ffe4b1d8 ffe4b548 ffe4b558 ) 00000000ffe13668: (semis) [ Finished open-package ] seek failed ( 8006000 800 4 ffffffffffffffff ) 00000000ffe13608: do?branch ( 8006000 800 4 ) 00000000ffe13618: 3drop ( Empty ) 00000000ffe13620: false ( 0 ) 00000000ffe13628: do?branch ( Empty ) 00000000ffe13650: r> ( ffe4ad30 ) 00000000ffe13658: destroy-instance ( Empty ) 00000000ffe13660: false ( 0 ) 00000000ffe13668: (semis) [ Finished open-package ] ( 0 ) 00000000ffe136b0: dobranch ( 0 ) 00000000ffe136d0: (semis) [ Finished $open-package ] ( 0 ) 00000000ffe35d40: (lit) ( 0 ffe35728 ) 00000000ffe35d50: (to) ( Empty ) 00000000ffe35d58: fs-ih ( 0 ) 00000000ffe35d60: 0= ( ffffffffffffffff ) 00000000ffe35d68: do?branch ( Empty ) 00000000ffe35d78: (") ( ffe35d88 10 ) 00000000ffe35d98: die Can't mount root Aborted. Based on that output, it's hard for me to tell what about "open-package'" failed > > Somewhere in there either you are coming up with some bad disk > addresses, or the HBA driver is failing a read. The alternative would be > to debug the HBA driver and see what disk reads you are being asked to > do, and try to trace backwards. I'm already headed down this path, so I'll stick there, now, unless you have some hints for going about debugging the HBA driver, which I would assume I would do from the Qemu source code side... -Nick -------- This e-mail may contain confidential and privileged material for the sole use of the intended recipient. If this email is not intended for you, or you are not responsible for the delivery of this message to the intended recipient, please note that this message may contain SEAKR Engineering (SEAKR) Privileged/Proprietary Information. In such a case, you are strictly prohibited from downloading, photocopying, distributing or otherwise using this message, its contents or attachments in any way. If you have received this message in error, please notify us immediately by replying to this e-mail and delete the message from your mailbox. Information contained in this message that does not relate to the business of SEAKR is neither endorsed by nor attributable to SEAKR.

2 2

see "" literals crash fix patch
by Mark Cave-Ayland 17 Nov '09

17 Nov '09

Hi all, Whilst playing around with a SPARC64 image, I noticed that the see word was still crashing on words containing "" literals as per my earlier report here: http://lists.openbios.org/pipermail/openbios/2009-January/003432.html Is there any reason why Stefan's patch posted as part of this thread has not been applied to SVN? Many thanks, Mark. -- Mark Cave-Ayland - Senior Technical Architect PostgreSQL - PostGIS Sirius Corporation plc - control through freedom http://www.siriusit.co.uk t: +44 870 608 0063 Sirius Labs: http://www.siriusit.co.uk/labs

2 1

r613 - in trunk/openbios-devel/forth: admin bootstrap
by svn＠openbios.org 17 Nov '09

17 Nov '09

Author: stepan Date: 2009-11-17 17:54:24 +0100 (Tue, 17 Nov 2009) New Revision: 613 Modified: trunk/openbios-devel/forth/admin/nvram.fs trunk/openbios-devel/forth/bootstrap/bootstrap.fs Log: This patch replaces the string definitions in nvram.fs by the simpler version s" that does not contain a complex parser for " "(0a) type of strings. Also use handle-text in " instead of the hand crafted version. This fixes strings in "see". Signed-off-by: Stefan Reinauer <stepan(a)coresystems.de> Modified: trunk/openbios-devel/forth/admin/nvram.fs =================================================================== --- trunk/openbios-devel/forth/admin/nvram.fs 2009-11-15 21:19:59 UTC (rev 612) +++ trunk/openbios-devel/forth/admin/nvram.fs 2009-11-17 16:54:24 UTC (rev 613) @@ -39,7 +39,7 @@ dup >cf.name 2@ $create , does> @ dup >cf.name 2@ - " /options" find-dev if + s" /options" find-dev if get-package-property if 0 -1 then ( configp prop-str prop-len ) \ drop trailing zero @@ -120,14 +120,14 @@ \ ------------------------------------------------------------ : exec-secmode-conf ( str len -- n ) - 2dup " command" strcmp 0= if 2drop 1 exit then - 2dup " full" strcmp 0= if 2drop 2 exit then + 2dup s" command" strcmp 0= if 2drop 1 exit then + 2dup s" full" strcmp 0= if 2drop 2 exit then 2drop 0 ; : check-secmode-conf ( str len -- str len valid? ) - 2dup " none" strcmp 0= if true exit then - 2dup " command" strcmp 0= if true exit then - 2dup " full" strcmp 0= if true exit then + 2dup s" none" strcmp 0= if true exit then + 2dup s" command" strcmp 0= if true exit then + 2dup s" full" strcmp 0= if true exit then false ; @@ -141,18 +141,18 @@ \ ------------------------------------------------------------ : exec-bool-conf ( str len -- value ) - 2dup " true" strcmp 0= if 2drop true exit then - 2dup " false" strcmp 0= if 2drop false exit then - 2dup " TRUE" strcmp 0= if 2drop false exit then - 2dup " FALSE" strcmp 0= if 2drop false exit then + 2dup s" true" strcmp 0= if 2drop true exit then + 2dup s" false" strcmp 0= if 2drop false exit then + 2dup s" TRUE" strcmp 0= if 2drop false exit then + 2dup s" FALSE" strcmp 0= if 2drop false exit then parse-hex 0<> ; : check-bool-conf ( name len -- str len valid? ) - 2dup " true" strcmp 0= if true exit then - 2dup " false" strcmp 0= if true exit then - 2dup " TRUE" strcmp 0= if 2drop " true" true exit then - 2dup " FALSE" strcmp 0= if 2drop " false" true exit then + 2dup s" true" strcmp 0= if true exit then + 2dup s" false" strcmp 0= if true exit then + 2dup s" TRUE" strcmp 0= if 2drop s" true" true exit then + 2dup s" FALSE" strcmp 0= if 2drop s" false" true exit then false ; @@ -181,7 +181,7 @@ then 2swap encode-string 2swap - " /options" find-package drop + s" /options" find-package drop encode-property ; @@ -199,7 +199,7 @@ linefeed parse 2drop active-package - " /options" find-device + s" /options" find-device .properties active-package! ; @@ -272,7 +272,7 @@ dup if 1- then then ( name len value-str len ) - 2swap " =" 2swap + 2swap s" =" 2swap pocket tmpstrcat tmpstrcat drop 2dup + 0 swap c! 1+ @@ -281,7 +281,7 @@ : nvram-store-configs ( data len -- ) 2 - \ make room for two trailing zeros - " /options" find-dev 0= if 2drop exit then + s" /options" find-dev 0= if 2drop exit then >r config-root ( data len configptr R: phandle ) @@ -301,66 +301,66 @@ \ NVRAM variables \ -------------------------------------------------------- \ fcode-debug? input-device output-device -" true" " auto-boot?" bool-config \ 7.4.3.5 -" boot" " boot-command" str-config \ 7.4.3.5 -" " " boot-file" str-config \ 7.4.3.5 -" false" " diag-switch?" bool-config \ 7.4.3.5 -no-conf-def " diag-device" str-config \ 7.4.3.5 -no-conf-def " diag-file" str-config \ 7.4.3.5 -" false" " fcode-debug?" bool-config \ 7.7 -" " " nvramrc" str-config \ 7.4.4.2 -" false" " oem-banner?" bool-config -" " " oem-banner" str-config -" false" " oem-logo?" bool-config -no-conf-def " oem-logo" str-config -" false" " use-nvramrc?" bool-config \ 7.4.4.2 -" keyboard" " input-device" str-config \ 7.4.5 -" screen" " output-device" str-config \ 7.4.5 -" 80" " screen-#columns" int-config \ 7.4.5 -" 24" " screen-#rows" int-config \ 7.4.5 -" 0" " selftest-#megs" int-config -no-conf-def " security-mode" secmode-config +s" true" s" auto-boot?" bool-config \ 7.4.3.5 +s" boot" s" boot-command" str-config \ 7.4.3.5 +s" " s" boot-file" str-config \ 7.4.3.5 +s" false" s" diag-switch?" bool-config \ 7.4.3.5 +no-conf-def s" diag-device" str-config \ 7.4.3.5 +no-conf-def s" diag-file" str-config \ 7.4.3.5 +s" false" s" fcode-debug?" bool-config \ 7.7 +s" " s" nvramrc" str-config \ 7.4.4.2 +s" false" s" oem-banner?" bool-config +s" " s" oem-banner" str-config +s" false" s" oem-logo?" bool-config +no-conf-def s" oem-logo" str-config +s" false" s" use-nvramrc?" bool-config \ 7.4.4.2 +s" keyboard" s" input-device" str-config \ 7.4.5 +s" screen" s" output-device" str-config \ 7.4.5 +s" 80" s" screen-#columns" int-config \ 7.4.5 +s" 24" s" screen-#rows" int-config \ 7.4.5 +s" 0" s" selftest-#megs" int-config +no-conf-def s" security-mode" secmode-config \ --- devices --- -" -1" " pci-probe-mask" int-config -" false" " default-mac-address" bool-config -" false" " skip-netboot?" bool-config -" true" " scroll-lock" bool-config +s" -1" s" pci-probe-mask" int-config +s" false" s" default-mac-address" bool-config +s" false" s" skip-netboot?" bool-config +s" true" s" scroll-lock" bool-config [IFDEF] CONFIG_PPC \ ---- PPC ---- -" disk" " boot-device" str-config \ 7.4.3.5 -" false" " little-endian?" bool-config -" false" " real-mode?" bool-config -" -1" " real-base" int-config -" -1" " real-size" int-config -" 4000000" " load-base" int-config -" -1" " virt-base" int-config -" -1" " virt-size" int-config +s" disk" s" boot-device" str-config \ 7.4.3.5 +s" false" s" little-endian?" bool-config +s" false" s" real-mode?" bool-config +s" -1" s" real-base" int-config +s" -1" s" real-size" int-config +s" 4000000" s" load-base" int-config +s" -1" s" virt-base" int-config +s" -1" s" virt-size" int-config [THEN] [IFDEF] CONFIG_X86 \ ---- X86 ---- -" disk" " boot-device" str-config \ 7.4.3.5 -" true" " little-endian?" bool-config +s" disk" s" boot-device" str-config \ 7.4.3.5 +s" true" s" little-endian?" bool-config [THEN] [IFDEF] CONFIG_SPARC32 \ ---- SPARC32 ---- -" true" " tpe-link-test?" bool-config -" 9600,8,n,1,-" " ttya-mode" str-config -" true" " ttya-ignore-cd" bool-config -" false" " ttya-rts-dtr-off" bool-config -" 9600,8,n,1,-" " ttyb-mode" str-config -" true" " ttyb-ignore-cd" bool-config -" false" " ttyb-rts-dtr-off" bool-config +s" true" s" tpe-link-test?" bool-config +s" 9600,8,n,1,-" s" ttya-mode" str-config +s" true" s" ttya-ignore-cd" bool-config +s" false" s" ttya-rts-dtr-off" bool-config +s" 9600,8,n,1,-" s" ttyb-mode" str-config +s" true" s" ttyb-ignore-cd" bool-config +s" false" s" ttyb-rts-dtr-off" bool-config [THEN] \ --- ??? --- -" " " boot-screen" str-config -" " " boot-script" str-config -" false" " use-generic?" bool-config -" " " boot-args" str-config \ ??? +s" " s" boot-screen" str-config +s" " s" boot-script" str-config +s" false" s" use-generic?" bool-config +s" " s" boot-args" str-config \ ??? \ defers ['] fcode-debug? to _fcode-debug? Modified: trunk/openbios-devel/forth/bootstrap/bootstrap.fs =================================================================== --- trunk/openbios-devel/forth/bootstrap/bootstrap.fs 2009-11-15 21:19:59 UTC (rev 612) +++ trunk/openbios-devel/forth/bootstrap/bootstrap.fs 2009-11-17 16:54:24 UTC (rev 613) @@ -1307,14 +1307,7 @@ +loop repeat over - - state @ if - ['] (lit) , here 5 cells + , - ['] (lit) , dup , - ['] dobranch , - here -rot - /n allot - ", null-align resolve-orig - then + handle-text ; immediate

1 0

PATCH: Minor debugger patch
by Mark Cave-Ayland 17 Nov '09

17 Nov '09

Hi all, This patch corrects a couple of (minor) bugs in the Forth source debugger; firstly the number of wordlists is held in #order, rather than #vocs which is the total number of wordlists which can be held simultaneously. Secondly, the initial interruptforth setting in kernel/bootstrap.c is actually wrong, but since this is reset by enterforth() it is not needed anyway. Hence this line can simply be removed. ATB, Mark. -- Mark Cave-Ayland - Senior Technical Architect PostgreSQL - PostGIS Sirius Corporation plc - control through freedom http://www.siriusit.co.uk t: +44 870 608 0063 Sirius Labs: http://www.siriusit.co.uk/labs

1 0

Re: [OpenBIOS] Sparc64 OpenBIOS
by Nick Couchman 16 Nov '09

16 Nov '09

> Ah - cool. What I'd suggest doing is, right after getting to the ok > prompt on boot -H: > > ok see do-boot Hmmm...not really working for me. I don't know that I'm actually at the "ok" prompt - I see the word "ok" output to the screen, but the prompt is actually "0> " and not okay. When I try "see do-boot", I get "do-boot: undefined word." Furthermore, almost none of the other commands work, either - get-bootdev, load-pkg, etc., all return "undefined word." Just to make sure I didn't leave anything out before, I'm running qemu-system-sparc64 (from the Qemu git repo), using OpenBIOS built from the svn repository. If there's something else I should be trying, please let me know. Thanks, Nick > > What you should see is something like what's in the boot.fth from > opensolaris: > http://src.opensolaris.org/source/xref/onnv/onnv-gate/usr/src/psm/stand/boo… > lks/common/boot.fth > > 657 : do-boot ( -- ) > 658 parse-bootargs > 659 halt? if > 660 ." Halted with -H flag. " cr > 661 exit > 662 then > 663 get-bootdev > 664 load-pkg > 665 mount-root > 666 zflag? nested? invert and if > 667 fs-name$ open-zfs-fs > 668 then > 669 load-file ( virt ) > 670 setup-props > 671 exec-file ( ) > 672 ; > > So, we've already parsed bootargs, let's do the rest of the method > manually (skipping zflag stuff, because I presume on a cdrom you don't > have zfs). > > ok false to halt? \ undo the -H flag just for the heck of it > ok get-bootdev > ok load-pkg > ok mount-root > ok load-file > ok setup-props > ok exec-file > > Somewhere in there you'll see failures, which will give you a better > feel for what's going wrong. Once you figure out which one it is, repeat > the process, but manually executing the method which caused problems. > This would be easier with a debugger, but it's still possible without it. -------- This e-mail may contain confidential and privileged material for the sole use of the intended recipient. If this email is not intended for you, or you are not responsible for the delivery of this message to the intended recipient, please note that this message may contain SEAKR Engineering (SEAKR) Privileged/Proprietary Information. In such a case, you are strictly prohibited from downloading, photocopying, distributing or otherwise using this message, its contents or attachments in any way. If you have received this message in error, please notify us immediately by replying to this e-mail and delete the message from your mailbox. Information contained in this message that does not relate to the business of SEAKR is neither endorsed by nor attributable to SEAKR.

2 1

Re: [OpenBIOS] Sparc64 OpenBIOS
by Nick Couchman 15 Nov '09

15 Nov '09

>>> On 2009/11/14 at 12:33, Tarl Neustaedter <Tarl.Neustaedter(a)Sun.COM> wrote: > Nick Couchman wrote: >> I have a pretty old version of the Solaris Nevada code that I tried to boot, > and I got a different error: open isn't unique. I'll post actual output here > in a little while. >> > > Hmm. That's interesting. I wonder if we're getting a conflict between > packages in openbios and what the boot blocks are creating. You might > find it easier to debug the Solaris Nevada version, depending on just > how old it is. Among other things, under OpenSolaris you can find the > code for the boot blocks (which changed drastically from Solaris 10 to > Nevada), so you aren't quite struggling in the dark. > > Also, the Nevada version of the bootblocks responds to the "-H" > argument, indicating that after loading the filesystem into /packages, > it returns to the OK prompt rather than immediately trying to do the > boot itself. That lets you set up breakpoints in the filesystem code > before executing them. I grabbed the newest Nevada ISO (b127) and tried to boot off that - the error is the same as Solaris 10: 0 > boot cdrom [sparc64] Booting file 'cdrom' with parameters '' Not a bootable ELF image Not a Linux kernel image Not a bootable a.out image Loading FCode image... Loaded 7120 bytes entry point is 0x4000 Evaluating FCode... seek failed Can't mount root byte-load: exception caught! ok I also tried the "boot -H" option and I get the following: 0 > boot -H cdrom [sparc64] Booting file '-H' with parameters 'cdrom' ok I assume this is the point where I really need the debugger and the breakpoints so that I can step through the rest of the boot process piece-by-piece. -Nick >> I'm pretty new to Qemu and OpenBIOS - what's the best way to go about > debugging this? GDB? Qemu's built-in debugging? >> > > Probably best to wait for the forth debugger that is being discussed. > Without breakpoints, you need to basically patch in breakpoints, which > is doable but time-consuming. -------- This e-mail may contain confidential and privileged material for the sole use of the intended recipient. If this email is not intended for you, or you are not responsible for the delivery of this message to the intended recipient, please note that this message may contain SEAKR Engineering (SEAKR) Privileged/Proprietary Information. In such a case, you are strictly prohibited from downloading, photocopying, distributing or otherwise using this message, its contents or attachments in any way. If you have received this message in error, please notify us immediately by replying to this e-mail and delete the message from your mailbox. Information contained in this message that does not relate to the business of SEAKR is neither endorsed by nor attributable to SEAKR.

3 2

r612 - trunk/openbios-devel/Documentation
by svn＠openbios.org 15 Nov '09

15 Nov '09

Author: blueswirl Date: 2009-11-15 22:19:59 +0100 (Sun, 15 Nov 2009) New Revision: 612 Added: trunk/openbios-devel/Documentation/README.debugger Log: Document the debugger Add a description of the debug syntax and run-time use, with an example of a debugging session. Signed-off-by: Blue Swirl <blauwirbel(a)gmail.com> Added: trunk/openbios-devel/Documentation/README.debugger =================================================================== --- trunk/openbios-devel/Documentation/README.debugger (rev 0) +++ trunk/openbios-devel/Documentation/README.debugger 2009-11-15 21:19:59 UTC (rev 612) @@ -0,0 +1,50 @@ +The following Forth words can be used for debugging: + + debug <xt> - Mark word for debugging + debug-off - Unmark all words for debugging + resume - Return from subordinate Forth interpreter + +The source debugger also implements the following commands when it has been activated: + + Up - Unmark current word for debugging, mark parent and continue + Down - Mark next word for debugging + Trace - Continue execution until end of word displaying + debug information + Rstack - Display contents of the Rstack + Forth - Launch subordinate Forth interpreter + +An example session: +0 > see boot +: boot + linefeed parse cr " platform-boot" $find if + execute then + 2drop cr " Booting " type type cr " ... not supported on this system." type cr + ; + ok +0 > debug boot +Stepper keys: <space>/<enter> Up Down Trace Rstack Forth + ok +0 > boot +: boot ( Empty ) +00000000ffe26b08: linefeed ( a ) +00000000ffe26b10: parse ( ffec6e24 0 ) +00000000ffe26b18: cr + ( ffec6e24 0 ) +00000000ffe26b20: (") ( ffec6e24 0 ffe26b30 d ) +00000000ffe26b40: $find ( ffec6e24 0 ffe31710 ffffffffffffffff ) +00000000ffe26b48: do?branch ( ffec6e24 0 ffe31710 ) +00000000ffe26b58: execute [sparc64] Booting file 'cdrom' with parameters '' +Not a bootable ELF image +Not a Linux kernel image +Not a bootable a.out image +Loading FCode image... +Loaded 5936 bytes +entry point is 0x4000 +Evaluating FCode... +open isn't unique. +Boot load failed. + ( Empty ) +00000000ffe26b60: dobranch ( Empty ) +00000000ffe26bf8: (semis) +[ Finished boot ] ok +0 >

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →