From: burkphil <burkphil@b0a0988d-7f52-0410-8c73-4f6cdee1a2cf>
Date: Tue, 23 Nov 2010 19:26:21 +0000 (+0000)
Subject: Add MINGW suport.
X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/commitdiff_plain/c1b0551debcb415cbc9fc976d011998d9f14759b

Add MINGW suport.
Change 32 to BL.
---

diff --git a/build/unix/Makefile b/build/unix/Makefile
index bb53402..8a58140 100644
--- a/build/unix/Makefile
+++ b/build/unix/Makefile
@@ -56,8 +56,7 @@ PFBASESOURCE = pf_cglue.c pf_clib.c pf_core.c pf_inner.c \
 	pf_text.c pf_words.c pfcompil.c pfcustom.c
 PFSOURCE = $(PFBASESOURCE) $(IO_SOURCE)
 
-VPATH = .:../../csrc:../../csrc/posix:../../csrc/stdio
-VPATH = .:$(SRCDIR)/csrc:$(SRCDIR)/csrc/posix:$(SRCDIR)/csrc/stdio
+VPATH = .:$(SRCDIR)/csrc:$(SRCDIR)/csrc/posix:$(SRCDIR)/csrc/stdio:$(SRCDIR)/csrc/win32_console:$(SRCDIR)/csrc/win32
 
 XCFLAGS = $(CCOPTS)
 XCPPFLAGS = $(CDEFS) -I.
diff --git a/csrc/pf_inner.c b/csrc/pf_inner.c
index dad9265..dc9c719 100644
--- a/csrc/pf_inner.c
+++ b/csrc/pf_inner.c
@@ -30,7 +30,7 @@
 
 #include "pf_all.h"
 
-#ifdef WIN32
+#if defined(WIN32) && !defined(__MINGW32__)
 #include <crtdbg.h>
 #endif
 
diff --git a/csrc/pf_types.h b/csrc/pf_types.h
index 52ad9f7..95c8e3c 100644
--- a/csrc/pf_types.h
+++ b/csrc/pf_types.h
@@ -27,8 +27,6 @@
 	typedef long Err;
 #endif
 
-typedef cell_t  *dicptr;
-
 typedef char  ForthString;
 typedef char *ForthStringPtr;
 
diff --git a/fth/member.fth b/fth/member.fth
index c690dbe..160e95f 100644
--- a/fth/member.fth
+++ b/fth/member.fth
@@ -34,7 +34,7 @@ decimal
 
 : FIND.BODY   ( -- , pfa true | $name false , look for word in dict. )
 \ Return address of parameter data.
-     32 word find
+     bl word find
      IF  >body true
      ELSE false
      THEN
diff --git a/fth/misc1.fth b/fth/misc1.fth
index 1e36e55..3a3a60a 100644
--- a/fth/misc1.fth
+++ b/fth/misc1.fth
@@ -74,7 +74,7 @@ decimal
 
 : $ ( <number> -- N , convert next number as hex )
     base @ hex
-    32 lword number? num_type_single = not
+    bl lword number? num_type_single = not
     abort" Not a single number!"
     swap base !
     state @
diff --git a/releases.txt b/releases.txt
index 82be64c..5c2e189 100644
--- a/releases.txt
+++ b/releases.txt
@@ -2,7 +2,10 @@ Release History for pForth - a Portable ANS-like Forth written in ANSI 'C'
 
 Documentation for pForth at http://www.softsynth.com/pforth/
 
-V27
+V28 - unreleased
+	- fixes for MinGW build
+
+V27 - 11/22/2010
     - Fixed REPOSITION-FILE FILE-SIZE and FILE-POSITION.
       They used to use single precision offset. Now use double as specified.
     - Delete object directories in Makefile clean.