[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