These changes are the raw update to qemu-2.6.

[kvmfornfv.git] / qemu / roms / SLOF / slof / fs / rmove.fs

diff --git a/qemu/roms/SLOF/slof/fs/rmove.fs b/qemu/roms/SLOF/slof/fs/rmove.fs
deleted file mode 100644 (file)
index c28dba9..0000000
--- a/qemu/roms/SLOF/slof/fs/rmove.fs
+++ /dev/null
@@ -1,53 +0,0 @@
-\ *****************************************************************************
-\ * Copyright (c) 2004, 2008 IBM Corporation
-\ * All rights reserved.
-\ * This program and the accompanying materials
-\ * are made available under the terms of the BSD License
-\ * which accompanies this distribution, and is available at
-\ * http://www.opensource.org/licenses/bsd-license.php
-\ *
-\ * Contributors:
-\ *     IBM Corporation - initial implementation
-\ ****************************************************************************/
-
-defer '(r@)
-defer '(r!)
-1 VALUE /(r)
-
-
-\ The rest of the code already implemented in prim.in
-\ In the end all of this should be moved over there and this file terminated
-
-: (rfill) ( addr size pattern 'r! /r -- )
-       to /(r) to '(r!) ff and
-       dup 8 lshift or dup 10 lshift or dup 20 lshift or
-       -rot bounds ?do dup i '(r!) /(r) +loop drop
-;
-
-: (fwrmove) ( src dest size -- )
-       >r 0 -rot r> bounds ?do + dup '(r@) i '(r!) /(r) dup +loop 2drop
-;
-
-\ Move from main to device memory
-: mrmove ( src dest size -- )
-       3dup or or 7 AND CASE
-               0 OF ['] x@ ['] rx! /x ENDOF
-               4 OF ['] l@ ['] rl! /l ENDOF
-               2 OF ['] w@ ['] rw! /w ENDOF
-               dup OF ['] c@ ['] rb! /c ENDOF
-       ENDCASE
-       ( We already know that source and destination do not overlap )
-       to /(r) to '(r!) to '(r@) (fwrmove)
-;
-
-: rfill ( addr size pattern -- )
-       3dup drop or 7 AND CASE
-               0 OF ['] rx! /x ENDOF
-               4 OF ['] rl! /l ENDOF
-               2 OF ['] rw! /w ENDOF
-               dup OF ['] rb! /c ENDOF
-       ENDCASE (rfill)
-;
-
-
-