[OpenBIOS] [PATCH 3/7] ppc: move fake copyright notice generation into a separate word
Mark Cave-Ayland
mark.cave-ayland at ilande.co.uk
Fri Feb 5 19:09:02 CET 2016
Separate this out rather than keeping it as part of adler32.
Signed-off-by: Mark Cave-Ayland <mark.cave-ayland at ilande.co.uk>
---
openbios-devel/arch/ppc/qemu/qemu.fs | 19 ++++++++++++++-----
1 file changed, 14 insertions(+), 5 deletions(-)
diff --git a/openbios-devel/arch/ppc/qemu/qemu.fs b/openbios-devel/arch/ppc/qemu/qemu.fs
index 11e344a..9f7e027 100644
--- a/openbios-devel/arch/ppc/qemu/qemu.fs
+++ b/openbios-devel/arch/ppc/qemu/qemu.fs
@@ -95,13 +95,11 @@ variable keyboard-phandle 0 keyboard-phandle !
; PREPOST-initializer
\ -------------------------------------------------------------------------
-\ Adler-32 wrapper
+\ fake copyright notice handling
\ -------------------------------------------------------------------------
-: adler32 ( adler buf len -- checksum )
- \ Since Mac OS 9 is the only system using this word, we take this
- \ opportunity to inject a copyright message that is necessary for the
- \ system to boot.
+: insert-fake-copyright
+ \ As required for MacOS 9 and below
" Copyright 1983-2001 Apple Computer, Inc. THIS MESSAGE FOR COMPATIBILITY ONLY"
encode-string " copyright"
" /" find-package if
@@ -111,6 +109,17 @@ variable keyboard-phandle 0 keyboard-phandle !
3drop drop
then
then
+;
+
+\ -------------------------------------------------------------------------
+\ Adler-32 wrapper
+\ -------------------------------------------------------------------------
+
+: adler32 ( adler buf len -- checksum )
+ \ Since Mac OS 9 is the only system using this word, we take this
+ \ opportunity to inject a copyright message that is necessary for the
+ \ system to boot.
+ insert-fake-copyright
( adler buf len )
--
1.7.10.4
More information about the OpenBIOS
mailing list