libs/ufe/optimiser_native.f

   1 ;; for optimisers:
   2 ;; addr,count: word name
   3 ;; mode is always native (but will be restored after the call to an optimiser)
   4
   5
   6 \ : OPTIMISE-NATIVE-WORD  ( addr count pfa -- )
   7 \   ." *** compiled NATIVE word at #"
   8 \   BASE @ HEX SWAP <# # # # # # # # # #> TYPE BASE !
   9 \   ." , name is <" TYPE ." >\n"
  10 \ ;