From: Jerome St-Louis <jerome@ecere.com>
Date: Mon, 15 Apr 2013 11:16:38 +0000 (-0400)
Subject: compiler/libec: Fixed 2 more long warnings
X-Git-Tag: 0.44.07~31
X-Git-Url: https://ecere.com/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5aec98345bac9323d1627fbd4def10bcb74b4845;p=sdk

compiler/libec: Fixed 2 more long warnings
---

diff --git a/compiler/libec/src/ast.ec b/compiler/libec/src/ast.ec
index 9b9048d..1d6a21e 100644
--- a/compiler/libec/src/ast.ec
+++ b/compiler/libec/src/ast.ec
@@ -2502,7 +2502,7 @@ static Type ProcessTypeDecls(OldList specs, Declarator decl, Type parentType)
                ProcessExpressionType(exp);
                ComputeExpression(exp);
                if(exp.type == constantExp)
-                  type.bitFieldCount = strtoul(exp.constant, null, 0);
+                  type.bitFieldCount = (uint)strtoul(exp.constant, null, 0);
             }
             break;
          }
diff --git a/compiler/libec/src/pass15.ec b/compiler/libec/src/pass15.ec
index 9d8e11d..af737e5 100644
--- a/compiler/libec/src/pass15.ec
+++ b/compiler/libec/src/pass15.ec
@@ -4768,7 +4768,7 @@ void ComputeInstantiation(Expression exp)
                                     case intType:
                                     {
                                        void (*Set)(void *, int) = (void *)prop.Set;
-                                       Set(inst.data, strtol(value.constant, null, 0));
+                                       Set(inst.data, (int)strtol(value.constant, null, 0));
                                        break;
                                     }
                                     case int64Type: