X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpf_text.c;h=03430a7761c538444e719744e6ed6b96faffbb7a;hb=92f564237b44db2747f921d2f31d071f8217fdd9;hp=e48e4570e00d63799cef2c225848f942486fdb23;hpb=8e9db35f299d8f606ba003d3cd8fa9e2c868c880;p=debian%2Fpforth

diff --git a/csrc/pf_text.c b/csrc/pf_text.c
index e48e457..03430a7 100644
--- a/csrc/pf_text.c
+++ b/csrc/pf_text.c
@@ -222,7 +222,7 @@ DBUGX(("ffCompareText: return 0x%x\n", Result ));
 ** Compare two strings, case sensitive.
 ** Return zero if they match, -1 if s1<s2, +1 is s1>s2;
 */
-cell_t ffCompare( const char *s1, cell_t len1, const char *s2, int32_t len2 )
+cell_t ffCompare( const char *s1, cell_t len1, const char *s2, cell_t len2 )
 {
     cell_t i, result, n, diff;