Fix MSVC build

vtereshkov · vtereshkov · commit a9164283aacd · 2025-08-14T15:30:31.000+04:00
diff --git a/src/umka_const.c b/src/umka_const.c
@@ -111,7 +111,7 @@ static int64_t constCompare(const Consts *consts, Const *lhs, const Const *rhs,
             const double diff = lhs->realVal - rhs->realVal;
             return (diff == 0.0) ? 0 : (diff > 0.0) ? 1 : -1;
         }
-        case TYPE_PTR:      return lhs->ptrVal - rhs->ptrVal;
+        case TYPE_PTR:      return (char *)lhs->ptrVal - (char *)rhs->ptrVal;
         case TYPE_WEAKPTR:  return lhs->weakPtrVal - rhs->weakPtrVal;
         case TYPE_STR:
         {
diff --git a/src/umka_vm.c b/src/umka_vm.c
@@ -845,7 +845,7 @@ static int64_t doCompare(Slot lhs, Slot rhs, const Type *type, Error *error)
             const double diff = lhs.realVal - rhs.realVal;
             return (diff == 0.0) ? 0 : (diff > 0.0) ? 1 : -1;
         }
-        case TYPE_PTR:      return lhs.ptrVal - rhs.ptrVal;
+        case TYPE_PTR:      return (char *)lhs.ptrVal - (char *)rhs.ptrVal;
         case TYPE_WEAKPTR:  return lhs.weakPtrVal - rhs.weakPtrVal;
         case TYPE_STR:
         {

Original file line number	Diff line number	Diff line change
`@@ -111,7 +111,7 @@ static int64_t constCompare(const Consts consts, Const lhs, const Const *rhs,`
`111`	`111`	`const double diff = lhs->realVal - rhs->realVal;`
`112`	`112`	`return (diff == 0.0) ? 0 : (diff > 0.0) ? 1 : -1;`
`113`	`113`	`}`
`114`		`- case TYPE_PTR: return lhs->ptrVal - rhs->ptrVal;`
	`114`	`+ case TYPE_PTR: return (char )lhs->ptrVal - (char )rhs->ptrVal;`
`115`	`115`	`case TYPE_WEAKPTR: return lhs->weakPtrVal - rhs->weakPtrVal;`
`116`	`116`	`case TYPE_STR:`
`117`	`117`	`{`
Original file line number	Diff line number	Diff line change
`@@ -845,7 +845,7 @@ static int64_t doCompare(Slot lhs, Slot rhs, const Type type, Error error)`
`845`	`845`	`const double diff = lhs.realVal - rhs.realVal;`
`846`	`846`	`return (diff == 0.0) ? 0 : (diff > 0.0) ? 1 : -1;`
`847`	`847`	`}`
`848`		`- case TYPE_PTR: return lhs.ptrVal - rhs.ptrVal;`
	`848`	`+ case TYPE_PTR: return (char )lhs.ptrVal - (char )rhs.ptrVal;`
`849`	`849`	`case TYPE_WEAKPTR: return lhs.weakPtrVal - rhs.weakPtrVal;`
`850`	`850`	`case TYPE_STR:`
`851`	`851`	`{`