[OpenBIOS] [PATCHv2 2/6] ppc: move copyright property generation into a separate word

Mark Cave-Ayland mark.cave-ayland at ilande.co.uk
Sat Feb 13 17:10:58 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..e9f1282 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
+\ copyright property 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-copyright-property
+  \ 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-copyright-property
 
   ( adler buf len )
 
-- 
1.7.10.4




More information about the OpenBIOS mailing list