Fixed POSIX IO, (ACCEPT) now emits SPACE at end of line.

[pforth] / csrc / pf_core.c

diff --git a/csrc/pf_core.c b/csrc/pf_core.c
index 0329749..c2fc2c9 100644 (file)
--- a/csrc/pf_core.c
+++ b/csrc/pf_core.c
@@ -444,7 +444,6 @@ int32 pfDoForth( const char *DicName, const char *SourceName, int32 IfInit )
 \r
        pfInit();\r
        \r
 \r
        pfInit();\r
        \r

-       \r

 /* Allocate Task structure. */\r
        pfDebugMessage("pfDoForth: call pfCreateTask()\n");\r
        cftd = pfCreateTask( DEFAULT_USER_DEPTH, DEFAULT_RETURN_DEPTH );\r
 /* Allocate Task structure. */\r
        pfDebugMessage("pfDoForth: call pfCreateTask()\n");\r
        cftd = pfCreateTask( DEFAULT_USER_DEPTH, DEFAULT_RETURN_DEPTH );\r


@@ -456,8 +455,8 @@ int32 pfDoForth( const char *DicName, const char *SourceName, int32 IfInit )
                if( !pfQueryQuiet() )\r
                {\r
                        MSG( "PForth V"PFORTH_VERSION );\r
                if( !pfQueryQuiet() )\r
                {\r
                        MSG( "PForth V"PFORTH_VERSION );\r

-                       if( IsHostLittleEndian() ) MSG("LE");\r
-                       else MSG("BE");\r
+                       if( IsHostLittleEndian() ) MSG("-LE");\r
+                       else MSG("-BE");\r

 #if PF_BIG_ENDIAN_DIC\r
             MSG("/BE");\r
 #elif PF_LITTLE_ENDIAN_DIC\r
 #if PF_BIG_ENDIAN_DIC\r
             MSG("/BE");\r
 #elif PF_LITTLE_ENDIAN_DIC\r