Address various compiler warnings about precision loss

[pforth] / csrc / pf_main.c

diff --git a/csrc/pf_main.c b/csrc/pf_main.c
index 5783f0f..1c7ef96 100644 (file)
--- a/csrc/pf_main.c
+++ b/csrc/pf_main.c
@@ -67,7 +67,7 @@ int main( int argc, char **argv )
     char IfInit = FALSE;
     char *s;
     cell_t i;
     char IfInit = FALSE;
     char *s;
     cell_t i;

-    int Result;
+    ThrowCode Result;

 
 /* For Metroworks on Mac */
 #ifdef __MWERKS__
 
 /* For Metroworks on Mac */
 #ifdef __MWERKS__


@@ -140,7 +140,7 @@ int main( int argc, char **argv )
     Result = pfDoForth( DicName, SourceName, IfInit);
 
 on_error:
     Result = pfDoForth( DicName, SourceName, IfInit);
 
 on_error:

-    return Result;
+    return (int)Result;

 }
 
 #endif  /* PF_EMBEDDED */
 }
 
 #endif  /* PF_EMBEDDED */