basis/cpu/x86/64/winnt/bootstrap.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: bootstrap.image.private kernel namespaces system
   4 layouts vocabs sequences cpu.x86.assembler
   5 cpu.x86.assembler.operands ;
   6 IN: bootstrap.x86
   7
   8 : stack-frame-size ( -- n ) 8 bootstrap-cells ;
   9 : arg1 ( -- reg ) RCX ;
  10 : arg2 ( -- reg ) RDX ;
  11
  12 << "vocab:cpu/x86/64/bootstrap.factor" parse-file suffix! >>
  13 call