fix int := enum as a type mismatch error

Author: CHiPs44

examples/450-enum.pas

@@ -12,7 +12,7 @@
   Ability: TAbilities;
   CharacterClass: TCharacterClass;
   Race: TCharacterRace;
-  Die: TDie;
+  Die, Die2: TDie;
   I: Integer;
   U: Unsigned;
 
@@ -54,6 +54,7 @@
   WriteLn('   Class: ', CharacterClass);
   WriteLn('    Race: ', Race);
   WriteLn('     Die: ', Die);
+  WriteLn('    Die2: ', Die2);
 End;
 
 Procedure DisplayDays();
@@ -85,6 +86,7 @@
   CharacterClass := Cleric;
   Race := Gnome;
   Die := D12;
+  Die2 := Die;
   DisplayCharacter;
   // Days of the week
   DisplayDays;

src/ps_value.c

@@ -162,7 +162,7 @@ ps_error ps_value_copy(const ps_value *from, ps_value *to, bool range_check)
         to->data = from->data;
         return PS_ERROR_NONE;
     }
-    // Enum can only be copied to same enum type
+    // Enum can only be copied to exact same enum type
     if (ps_value_get_type(from) == PS_TYPE_ENUM)
     {
         return PS_ERROR_TYPE_MISMATCH;