[openfirmware] ppc: "${BP}/forth/lib/debug.fth:45: cntx ?" [patch]
Marcin Cieslak
saper at saper.info
Thu Nov 5 01:00:49 CET 2015
This fixes warning about undefined cntx issued during PPC
cross-compilation:
--- Cmd: ${HOSTDIR}/ppcforth ${BP}/cpu/ppc/build/kernel.dic ../tools.bth
${BP}/forth/lib/debug.fth:45: cntx ?
${BP}/forth/lib/debug.fth:297: cntx ?
${BP}/forth/lib/debug.fth:298: cntx ?
Index: cpu/ppc/debugm.fth
===================================================================
--- cpu/ppc/debugm.fth (revision 3786)
+++ cpu/ppc/debugm.fth (working copy)
@@ -14,7 +14,7 @@
nuser 'debug \ code field for high level trace
nuser <ip \ lower limit of ip
nuser ip> \ upper limit of ip
-nuser cnt \ how many times thru debug next
+nuser cntx \ how many times thru debug next
\ Since we use a shared "next" routine, slow-next and fast-next are no-op's
alias slow-next 2drop ( high low -- )
@@ -38,14 +38,14 @@
'user ip> lwz t0,*
cmpl 0,0,t2,t0
< if
- 'user cnt lwz t0,*
+ 'user cntx lwz t0,*
set t1,2
addi t0,t0,1
- 'user cnt stw t0,*
+ 'user cntx stw t0,*
cmp 0,0,t0,t1
= if
set t0,0
- 'user cnt stw t0,*
+ 'user cntx stw t0,*
set t0,h#873d0004 \ lwzu w,4(ip)
stw t0,0(up)
More information about the openfirmware
mailing list