X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/970d32b553a44051cedd2caf34267b7b1cdbab78..1cb310e62eaf4422ee298d9d87c35f9dd6b4c71c:/csrc/pf_main.c diff --git a/csrc/pf_main.c b/csrc/pf_main.c index 6b07f33..df38d0c 100644 --- a/csrc/pf_main.c +++ b/csrc/pf_main.c @@ -43,21 +43,13 @@ #define TRUE (1) #define FALSE (0) #endif - -static const char *gErrorMsg32Bit = "ERROR - A long is not 4 bytes. Are we running on a 64-bit machine?!\n"; #ifdef PF_EMBEDDED int main( void ) { char IfInit = 0; const char *DicName = NULL; - const char *SourceName = NULL; - // Check to make sure we are running in 32-bit mode. - if( sizeof(long) != 4 ) - { - pfMessage(gErrorMsg32Bit); - return 1; - } + const char *SourceName = NULL; pfMessage("\npForth Embedded\n"); return pfDoForth( DicName, SourceName, IfInit); } @@ -74,21 +66,14 @@ int main( int argc, char **argv ) const char *SourceName = NULL; char IfInit = FALSE; char *s; - int32 i; + cell_t i; int Result; - - // Check to make sure we are running in 32-bit mode. - if( sizeof(long) != 4 ) - { - ERR((gErrorMsg32Bit)); - return 1; - } - + /* For Metroworks on Mac */ #ifdef __MWERKS__ argc = ccommand(&argv); #endif - + /* Parse command line. */ for( i=1; i