Add MINGW suport.

Change 32 to BL.

diff --git a/build/unix/Makefile b/build/unix/Makefile
index bb53402..8a58140 100644 (file)
--- 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)
 
        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.
 
 XCFLAGS = $(CCOPTS)
 XCPPFLAGS = $(CDEFS) -I.

diff --git a/csrc/pf_inner.c b/csrc/pf_inner.c
index dad9265..dc9c719 100644 (file)
--- a/csrc/pf_inner.c
+++ b/csrc/pf_inner.c
@@ -30,7 +30,7 @@
 \r
 #include "pf_all.h"\r
 \r
 \r
 #include "pf_all.h"\r
 \r

-#ifdef WIN32\r
+#if defined(WIN32) && !defined(__MINGW32__)\r

 #include <crtdbg.h>\r
 #endif\r
 \r
 #include <crtdbg.h>\r
 #endif\r
 \r

diff --git a/csrc/pf_types.h b/csrc/pf_types.h
index 52ad9f7..95c8e3c 100644 (file)
--- a/csrc/pf_types.h
+++ b/csrc/pf_types.h
@@ -27,8 +27,6 @@
        typedef long Err;\r
 #endif\r
 \r
        typedef long Err;\r
 #endif\r
 \r

-typedef cell_t  *dicptr;\r
-\r

 typedef char  ForthString;\r
 typedef char *ForthStringPtr;\r
 \r
 typedef char  ForthString;\r
 typedef char *ForthStringPtr;\r
 \r

diff --git a/fth/member.fth b/fth/member.fth
index c690dbe..160e95f 100644 (file)
--- a/fth/member.fth
+++ b/fth/member.fth
@@ -34,7 +34,7 @@ decimal
 \r
 : FIND.BODY   ( -- , pfa true | $name false , look for word in dict. )\r
 \ Return address of parameter data.\r
 \r
 : FIND.BODY   ( -- , pfa true | $name false , look for word in dict. )\r
 \ Return address of parameter data.\r

-     32 word find\r
+     bl word find\r

      IF  >body true\r
      ELSE false\r
      THEN\r
      IF  >body true\r
      ELSE false\r
      THEN\r

diff --git a/fth/misc1.fth b/fth/misc1.fth
index 1e36e55..3a3a60a 100644 (file)
--- a/fth/misc1.fth
+++ b/fth/misc1.fth
@@ -74,7 +74,7 @@ decimal
 \r
 : $ ( <number> -- N , convert next number as hex )\r
     base @ hex\r
 \r
 : $ ( <number> -- N , convert next number as hex )\r
     base @ hex\r

-    32 lword number? num_type_single = not\r
+    bl lword number? num_type_single = not\r

     abort" Not a single number!"\r
     swap base !\r
     state @\r
     abort" Not a single number!"\r
     swap base !\r
     state @\r

diff --git a/releases.txt b/releases.txt
index 82be64c..5c2e189 100644 (file)
--- a/releases.txt
+++ b/releases.txt
@@ -2,7 +2,10 @@ Release History for pForth - a Portable ANS-like Forth written in ANSI 'C'
 \r
 Documentation for pForth at http://www.softsynth.com/pforth/\r
 \r
 \r
 Documentation for pForth at http://www.softsynth.com/pforth/\r
 \r

-V27\r
+V28 - unreleased\r
+       - fixes for MinGW build\r
+\r
+V27 - 11/22/2010\r

     - Fixed REPOSITION-FILE FILE-SIZE and FILE-POSITION.\r
       They used to use single precision offset. Now use double as specified.\r
     - Delete object directories in Makefile clean.\r
     - Fixed REPOSITION-FILE FILE-SIZE and FILE-POSITION.\r
       They used to use single precision offset. Now use double as specified.\r
     - Delete object directories in Makefile clean.\r