From f8688e0ca6ee2928ae1441ba2b7f5d2c8f43dea5 Mon Sep 17 00:00:00 2001 From: rich Date: Thu, 11 Oct 2007 07:41:51 +0000 Subject: [PATCH] Test assembler & INLINE --- test_assembler.f | 19 +++++++++++++++++++ test_assembler.f.out | 8 ++++++++ 2 files changed, 27 insertions(+) create mode 100644 test_assembler.f create mode 100644 test_assembler.f.out diff --git a/test_assembler.f b/test_assembler.f new file mode 100644 index 0000000..8edba7c --- /dev/null +++ b/test_assembler.f @@ -0,0 +1,19 @@ +( -*- text -*- ) + +: 2DROP INLINE DROP INLINE DROP ;CODE + +: C@++ INLINE DUP INLINE 1+ INLINE SWAP INLINE C@ ;CODE + +: TEST + ." 2DROP: " 1 2 3 4 2DROP . . CR + + S" testing" DROP + C@++ EMIT CR + C@++ EMIT CR + C@++ EMIT CR + C@++ EMIT CR + C@++ EMIT CR + C@++ EMIT CR + C@++ EMIT CR + DROP +; diff --git a/test_assembler.f.out b/test_assembler.f.out new file mode 100644 index 0000000..9a172d4 --- /dev/null +++ b/test_assembler.f.out @@ -0,0 +1,8 @@ +2DROP: 2 1 +t +e +s +t +i +n +g -- 1.8.3.1