<div dir="ltr"><div dir="ltr"><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">( 1 )</div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">Please notice statement 3 :<br></div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">1 unit UITypes<br>2 {$IF FPC_FULLVERSION >= 30200}<br></div><div class="gmail_default" style="font-family:monospace;font-size:large">3 deprecated 'Use System.UITypes instead (available since FPC 3.2.0)';<br> </div><div class="gmail_default" style="font-family:monospace;font-size:large">( 2 )</div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">Present form of this unit is defective :</div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">2 {$IF FPC_FULLVERSION >= 30200}</div><div class="gmail_default" style="font-family:monospace;font-size:large">... ( A )<br></div><div class="gmail_default" style="font-family:monospace;font-size:large">57 {$ELSE}<br></div><div class="gmail_default" style="font-family:monospace;font-size:large">... ( B )<br></div><div class="gmail_default" style="font-family:monospace;font-size:large">90 {$ENDIF}<br> <br></div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">( A ) and ( B ) parts are determining different values for</div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">mrNone..mrLast</div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">and they are used in the part</div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">91 <br></div><div class="gmail_default" style="font-family:monospace;font-size:large">...</div><div class="gmail_default" style="font-family:monospace;font-size:large">106</div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">part .</div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">91 ... 106 statements should be defined for each case <br></div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">in ( A ) and ( B ) parts separately when such a different limits occur .</div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large"></div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large">Mehmet Erol Sanliturk<br></div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div><div class="gmail_default" style="font-family:monospace;font-size:large"><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Mon, Dec 11, 2023 at 3:04 AM Bo Berglund via lazarus <<a href="mailto:lazarus@lists.lazarus-ide.org">lazarus@lists.lazarus-ide.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">On Sun, 10 Dec 2023 20:10:38 +0300, Mehmet Erol Sanliturk via lazarus<br>
<<a href="mailto:lazarus@lists.lazarus-ide.org" target="_blank">lazarus@lists.lazarus-ide.org</a>> wrote:<br>
<br>
>There is a statement<br>
><br>
> 90 {$ENDIF}<br>
><br>
>Its outside of {$IFDEF } is not listed .<br>
>It is very likely that<br>
><br>
>mrNone..mrLast<br>
><br>
>values are defined outside of ( IFDEF , ENDIF ) pairs .<br>
><br>
<br>
Below is the full text of that file and the only define used is on line 2 where<br>
the fpc compiler is checked to be 3.2.0 or above in which case the reading of<br>
the file should be lines 3..56 and then continue on line 91.<br>
<br>
So since the compiler is fpc ver 3.2.2 this should NOT bring us down to line<br>
58..89, but it seems like it jumps there anyway...<br>
<br>
Where is the identifier FPC_FULLVERSION defined??<br>
<br>
Anyway, I gave up and disabled my own compiler and installed fpc 3.2.2 via apt<br>
and then the issue does not appear anymore.<br>
But now I have the fpc compiler *outside* of my $HOME file hierarchy...<br>
<br>
See also my notes at the bottom of the file (lines 89 and 105).<br>
<br>
File body:/home/bosse/devtools/lazarus/2.2.6/components/lazutils/uitypes.pas<br>
----------------------------------------------------------------------------<br>
1 unit UITypes<br>
2 {$IF FPC_FULLVERSION >= 30200}<br>
3 deprecated 'Use System.UITypes instead (available since FPC 3.2.0)';<br>
4<br>
5 {$mode objfpc}{$H+}<br>
6<br>
7 interface<br>
8<br>
9 uses<br>
10 System.UITypes;<br>
11<br>
12 const<br>
13 mtWarning = System.UITypes.TMsgDlgType.mtWarning;<br>
14 mtError = System.UITypes.TMsgDlgType.mtError;<br>
15 mtInformation = System.UITypes.TMsgDlgType.mtInformation;<br>
16 mtConfirmation = System.UITypes.TMsgDlgType.mtConfirmation;<br>
17 mtCustom = System.UITypes.TMsgDlgType.mtCustom;<br>
18<br>
19 mbYes = System.UITypes.TMsgDlgBtn.mbYes;<br>
20 mbNo = System.UITypes.TMsgDlgBtn.mbNo;<br>
21 mbOK = System.UITypes.TMsgDlgBtn.mbOK;<br>
22 mbCancel = System.UITypes.TMsgDlgBtn.mbCancel;<br>
23 mbAbort = System.UITypes.TMsgDlgBtn.mbAbort;<br>
24 mbRetry = System.UITypes.TMsgDlgBtn.mbRetry;<br>
25 mbIgnore = System.UITypes.TMsgDlgBtn.mbIgnore;<br>
26 mbAll = System.UITypes.TMsgDlgBtn.mbAll;<br>
27 mbNoToAll = System.UITypes.TMsgDlgBtn.mbNoToAll;<br>
28 mbYesToAll = System.UITypes.TMsgDlgBtn.mbYesToAll;<br>
29 mbHelp = System.UITypes.TMsgDlgBtn.mbHelp;<br>
30 mbClose = System.UITypes.TMsgDlgBtn.mbClose;<br>
31<br>
32 type<br>
33 // Message dialog related<br>
34 TMsgDlgType = System.UITypes.TMsgDlgType;<br>
35 TMsgDlgBtn = System.UITypes.TMsgDlgBtn;<br>
36 TMsgDlgButtons = set of System.UITypes.TMsgDlgBtn;<br>
37<br>
38 // ModalResult<br>
39 TModalResult = System.UITypes.TModalResult;<br>
40 PModalResult = System.UITypes.PModalResult;<br>
41<br>
42 const<br>
43 // Used for ModalResult<br>
44 mrNone = System.UITypes.mrNone;<br>
45 mrOK = System.UITypes.mrOK;<br>
46 mrCancel = System.UITypes.mrCancel;<br>
47 mrAbort = System.UITypes.mrAbort;<br>
48 mrRetry = System.UITypes.mrRetry;<br>
49 mrIgnore = System.UITypes.mrIgnore;<br>
50 mrYes = System.UITypes.mrYes;<br>
51 mrNo = System.UITypes.mrNo;<br>
52 mrAll = System.UITypes.mrAll;<br>
53 mrNoToAll = System.UITypes.mrNoToAll;<br>
54 mrYesToAll = System.UITypes.mrYesToAll;<br>
55 mrClose = System.UITypes.mrClose;<br>
56 mrLast = System.UITypes.mrLast;<br>
57 {$ELSE}<br>
58 ;<br>
59<br>
60 {$mode objfpc}{$H+}<br>
61<br>
62 interface<br>
63<br>
64 type<br>
65 // Message dialog related<br>
66 TMsgDlgType = (mtWarning, mtError, mtInformation, mtConfirmation,<br>
mtCustom);<br>
67 TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore,<br>
68 mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);<br>
69 TMsgDlgButtons = set of TMsgDlgBtn;<br>
70<br>
71 // ModalResult<br>
72 TModalResult = low(Integer)..high(Integer);<br>
73 PModalResult = ^TModalResult;<br>
74<br>
75 const<br>
76 // Used for ModalResult<br>
77 mrNone = 0;<br>
78 mrOK = mrNone + 1;<br>
79 mrCancel = mrNone + 2;<br>
80 mrAbort = mrNone + 3;<br>
81 mrRetry = mrNone + 4;<br>
82 mrIgnore = mrNone + 5;<br>
83 mrYes = mrNone + 6;<br>
84 mrNo = mrNone + 7;<br>
85 mrAll = mrNone + 8;<br>
86 mrNoToAll = mrNone + 9;<br>
87 mrYesToAll = mrNone + 10;<br>
88 mrClose = mrNone + 11;<br>
89 mrLast = mrClose; //Should this be: mrLast = mrNone + 12 maybe???<br>
90 {$ENDIF}<br>
91<br>
92 // String representation of ModalResult values<br>
93 ModalResultStr: array[mrNone..mrLast] of shortstring = (<br>
94 'mrNone',<br>
95 'mrOk',<br>
96 'mrCancel',<br>
97 'mrAbort',<br>
98 'mrRetry',<br>
99 'mrIgnore',<br>
100 'mrYes',<br>
101 'mrNo',<br>
102 'mrAll',<br>
103 'mrNoToAll',<br>
104 'mrYesToAll',<br>
105 'mrClose'); //Should there be another line for mrLast maybe???<br>
106<br>
107<br>
108 implementation<br>
109<br>
110 end.<br>
<br>
------------------------------------------<br>
<br>
<br>
-- <br>
Bo Berglund<br>
Developer in Sweden<br>
<br>
-- <br>
_______________________________________________<br>
lazarus mailing list<br>
<a href="mailto:lazarus@lists.lazarus-ide.org" target="_blank">lazarus@lists.lazarus-ide.org</a><br>
<a href="https://lists.lazarus-ide.org/listinfo/lazarus" rel="noreferrer" target="_blank">https://lists.lazarus-ide.org/listinfo/lazarus</a><br>
</blockquote></div></div>