[openfirmware] r1005 - cpu/x86/pc/neptune

[svn at openfirmware.info]

Author: wmb
Date: 2008-11-12 19:58:05 +0100 (Wed, 12 Nov 2008)
New Revision: 1005

Modified:
   cpu/x86/pc/neptune/mfgdata.fth
Log:
Neptune - fixed stack cruft in encode-enaddr .


Modified: cpu/x86/pc/neptune/mfgdata.fth
===================================================================
--- cpu/x86/pc/neptune/mfgdata.fth	2008-11-12 04:40:32 UTC (rev 1004)
+++ cpu/x86/pc/neptune/mfgdata.fth	2008-11-12 18:58:05 UTC (rev 1005)
@@ -59,7 +59,7 @@
 
 : 2u#:  u# u#  [char] : hold  drop  ;
 : encode-enaddr  ( adr len -- adr' len' )  \ binary to ASCII
-   6 <>  if  " " exit  then
+   6 <>  if  drop " " exit  then
    6 bounds  do  i c@  loop   ( b0 b1 b2 b3 b4 b5 b6 )
    push-hex
    <# 2u#: 2u#: 2u#: 2u#: 2u#: u# u# u#>