From a7188cc23737d23e61e3197f8fd3d4bb10eddc1f Mon Sep 17 00:00:00 2001 From: Blue Swirl Date: Sat, 30 Aug 2008 10:51:55 +0000 Subject: [PATCH] Fix pad alignment git-svn-id: svn://coreboot.org/openbios/openbios-devel@231 f158a5a8-5612-0410-a976-696ce0be7e32 --- forth/bootstrap/bootstrap.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/forth/bootstrap/bootstrap.fs b/forth/bootstrap/bootstrap.fs index 096e5c9..55f34fd 100644 --- a/forth/bootstrap/bootstrap.fs +++ b/forth/bootstrap/bootstrap.fs @@ -1083,7 +1083,7 @@ defer key false value capital-hex? -: pad ( -- addr ) here 100 + ; +: pad ( -- addr ) here 100 + aligned ; : todigit ( num -- ascii ) dup 9 > if