paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 10:42:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed case statements with int64 values

Browse Source
This commit is contained in:
Jonas Maebe 2000-12-16 22:45:55 +00:00
parent d3a8cc7fc8
commit 595bf10fa7
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pstatmnt.pas
View File

@ -142,7 +142,7 @@ implementation
{ the typ of the case expression } { the typ of the case expression }
casedef : pdef; casedef : pdef;
procedure newcaselabel(l,h : longint;first:boolean); procedure newcaselabel(l,h : TConstExprInt;first:boolean);
var var
hcaselabel : pcaserecord; hcaselabel : pcaserecord;
@ -1259,7 +1259,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.16 2000-11-29 00:30:37 florian Revision 1.17 2000-12-16 22:45:55 jonas
* fixed case statements with int64 values
Revision 1.16 2000/11/29 00:30:37 florian
* unused units removed from uses clause * unused units removed from uses clause
* some changes for widestrings * some changes for widestrings