From 8f4cec682dfa5299206dce7c8c9a4bdc87517645 Mon Sep 17 00:00:00 2001 From: Brad Nelson Date: Sun, 30 Jan 2022 14:47:59 -0800 Subject: [PATCH] Cleanup windows. --- ueforth/common/forth_namespace_tests.fs | 5 ----- ueforth/windows/windows_highlevel.fs | 5 +++-- 2 files changed, 3 insertions(+), 7 deletions(-) diff --git a/ueforth/common/forth_namespace_tests.fs b/ueforth/common/forth_namespace_tests.fs index 873da74..45ea923 100644 --- a/ueforth/common/forth_namespace_tests.fs +++ b/ueforth/common/forth_namespace_tests.fs @@ -418,11 +418,6 @@ e: test-forth-namespace out: resize out: free out: allocate - out: process-heap - out: HeapReAlloc - out: HeapFree - out: HeapAlloc - out: GetProcessHeap out: ok out: ms check-files diff --git a/ueforth/windows/windows_highlevel.fs b/ueforth/windows/windows_highlevel.fs index 90a16af..b00fa68 100644 --- a/ueforth/windows/windows_highlevel.fs +++ b/ueforth/windows/windows_highlevel.fs @@ -13,13 +13,14 @@ \ limitations under the License. ( Words with OS assist ) -windows +windows definitions z" GetProcessHeap" 0 Kernel32 GetProcessHeap z" HeapAlloc" 3 Kernel32 HeapAlloc z" HeapFree" 3 Kernel32 HeapFree z" HeapReAlloc" 4 Kernel32 HeapReAlloc GetProcessHeap constant process-heap +forth definitions also windows : allocate ( n -- a ior ) process-heap 0 rot HeapAlloc dup 0= ; : free ( a -- ior ) process-heap 0 rot HeapFree drop 0 ; : resize ( a n -- a ior ) process-heap -rot 0 -rot HeapReAlloc dup 0= ; -forth +only forth definitions