[Kernel] partrial fix of forth.c (#155)

Approved!
pimnik98 · Aug 11, 2024 · 49a6c1f · 49a6c1f
2 parents fdfdb11 + 824a549
commit 49a6c1f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/kernel/src/toys/forth.c b/kernel/src/toys/forth.c
@@ -578,7 +578,7 @@ Cell CCompare( void * caddr1  ,  Cell len1 ,  void * caddr2  ,  Cell len2) {
     if (len1 > len2) return  1;
 
 //    auto cmpResult = std::memcmp(caddr1, caddr2, len1);
-    auto cmpResult = memcasecmp(caddr1, caddr2, len1);
+    auto int cmpResult = memcasecmp(caddr1, caddr2, len1);
 
     if (cmpResult < 0) return -1;
     if (cmpResult > 0) return  1;
@@ -1263,7 +1263,7 @@ void LastKey()
 
 void ChLastKey()
 {
- static lgetCharRaw = 0;
+ static int lgetCharRaw = 0;
   *--Stack= Tos;
   do{
   while(Tos==lgetCharRaw) Tos = getCharRaw() ;