<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Verdana
}
--></style>
</head>
<body class='hmmessage'>
PutLH(Long.RightShift(FIRST(LONGINT), 630)); PutT("\n");<BR>
<BR>
<BR>
I'm guessing the warning is all you're supposed to get here?<BR>
<BR>
<BR>
C:\dev2\cm3.2\m3-sys\m3tests\src\p2\p227>cm3<BR>--- building in NT386 ---<BR>
new source -> compiling Main.m3<BR>"..\Main.m3", line 894: warning: value out of range<BR>
<BR>***<BR>*** runtime error:<BR>*** An enumeration or subrange value was out of range.<BR>*** file "..\src\TWordN.m3", line 129<BR>***<BR>
Stack trace:<BR> FP PC Procedure<BR>--------- --------- -------------------------------<BR> 0x12f0dc 0x48791a RightShift + 0x35 in ..\src\TWordN.m3<BR> 0x12f15c 0x47c62f doshift + 0x2c6 in ..\src\Stackx86.m3<BR> 0x12f188 0x4485d2 shift_right + 0x1b2 in ..\src\M3x86.m3<BR> 0x12f1ac 0x6414ed shift_right + 0xf5 in ..\src\M3CG_Check.m3<BR> 0x12f1d4 0x505a4f Shift_right + 0x87 in ..\src\misc\CG.m3<BR> 0x12f1f8 0x570641 CompileR + 0x1da in ..\NT386\LongShift.m3 => ..\src\builti<BR>nWord\Shift.mg<BR> 0x12f218 0x5cec2f Compile + 0x83 in ..\src\exprs\CallExpr.m3<BR> 0x12f234 0x5bfee4 Compile + 0x53 in ..\src\exprs\Expr.m3<BR> 0x12f274 0x5d19a7 EmitChecks + 0xdf in ..\src\exprs\CheckExpr.m3<BR> 0x12f2b4 0x5c8b15 GenOrdinal + 0xa6 in ..\src\values\Formal.m3<BR>......... ......... ... more frames ...<BR>
<BR> </body>
</html>