paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 12:50:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug in type conversions between enum subranges (it didn't take

Browse Source 
the packenum directive into account)
  + define PACKENUMFIXED symbol in options.pas
   (merged from fixes branch)
This commit is contained in:
Jonas Maebe 2000-08-07 11:31:04 +00:00
parent ede6479557
commit cca5461149
2 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/htypechk.pas
View File

@ -295,7 +295,8 @@ implementation
if (hd1=hd2) then
begin
b:=1;
doconv:=tc_equal;
{ because of packenum they can have different sizes! (JM) }
doconv:=tc_int_2_int;
end;
end;
end;
@ -1131,7 +1132,13 @@ implementation
end.
{
$Log$
Revision 1.2 2000-07-13 11:32:41 michael
Revision 1.3 2000-08-07 11:31:04 jonas
* fixed bug in type conversions between enum subranges (it didn't take
the packenum directive into account)
+ define PACKENUMFIXED symbol in options.pas
(merged from fixes branch)
Revision 1.2 2000/07/13 11:32:41 michael
+ removed logs
}

9
compiler/options.pas
View File

@ -1224,6 +1224,7 @@ begin
{ for the RTL }
def_symbol('CARDINALMULFIXED');
{$endif cardinalmulfix}
def_symbol('PACKENUMFIXED');
{ New since 1.09 }
def_symbol('HASOUT');
@ -1480,7 +1481,13 @@ end;
end.
{
$Log$
Revision 1.4 2000-07-14 05:11:48 michael
Revision 1.5 2000-08-07 11:31:04 jonas
* fixed bug in type conversions between enum subranges (it didn't take
the packenum directive into account)
+ define PACKENUMFIXED symbol in options.pas
(merged from fixes branch)
Revision 1.4 2000/07/14 05:11:48 michael
+ Patch to 1.1
Revision 1.3 2000/07/13 12:08:26 michael