X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..6b91cb54fc7dec367c57b4d9e97f2a086b809ea6:/csrc/pf_core.c diff --git a/csrc/pf_core.c b/csrc/pf_core.c index 0329749..c2fc2c9 100644 --- a/csrc/pf_core.c +++ b/csrc/pf_core.c @@ -444,7 +444,6 @@ int32 pfDoForth( const char *DicName, const char *SourceName, int32 IfInit ) pfInit(); - /* Allocate Task structure. */ pfDebugMessage("pfDoForth: call pfCreateTask()\n"); cftd = pfCreateTask( DEFAULT_USER_DEPTH, DEFAULT_RETURN_DEPTH ); @@ -456,8 +455,8 @@ int32 pfDoForth( const char *DicName, const char *SourceName, int32 IfInit ) if( !pfQueryQuiet() ) { MSG( "PForth V"PFORTH_VERSION ); - if( IsHostLittleEndian() ) MSG("LE"); - else MSG("BE"); + if( IsHostLittleEndian() ) MSG("-LE"); + else MSG("-BE"); #if PF_BIG_ENDIAN_DIC MSG("/BE"); #elif PF_LITTLE_ENDIAN_DIC