mirror of
https://gitee.com/mirrors_PX4/PX4-Autopilot.git
synced 2026-04-14 10:07:39 +08:00
add995c32e
git-svn-id: https://nuttx.svn.sourceforge.net/svnroot/nuttx/trunk@4200 7fd9a85b-ad96-42d3-883c-3090e2eb8679
44 lines
1.1 KiB
ObjectPascal
44 lines
1.1 KiB
ObjectPascal
{ A test of constant optimiztion }
|
|
|
|
program constopt;
|
|
var
|
|
i1, i2, i3 : integer;
|
|
b1 : boolean
|
|
begin
|
|
{ integer operations:
|
|
1. =, <>, <, <=, >, >=
|
|
2. +, -, OR
|
|
3. *, DIV, AND, SHL, SHR
|
|
4. -, NOT
|
|
}
|
|
|
|
i1 := -2; { -2 }
|
|
i1 := 3 * 2; { 6 }
|
|
i1 := 3 * (-2); { -6 }
|
|
i1 := 3 div 2; { 1 }
|
|
i1 := 3 div (-2); { -1 }
|
|
i1 := 4 * 3 div (-2); { -6 }
|
|
i1 := 4 * (3 div (-2)); { -4 }
|
|
i1 := (4 * 3) div (-2); { -6 }
|
|
|
|
i1 := 3 + 2; { 5 }
|
|
i1 := 3 - 2; { 1 }
|
|
i1 := 3 + (-2); { 1 }
|
|
i1 := 4 + 3 - 2; { 5 }
|
|
i1 := 4 + (3 - 2); { 5 }
|
|
i1 := (4 + 3) - 2; { 5 }
|
|
|
|
b1 := -2 = 3 + 2; { -2 = 5 0 }
|
|
b1 := 3 * 2 <> 3 - 2; { 6 <> 1 -1 }
|
|
b1 := 3 * (-2) < 3 + (-2); { -6 < 1 -1 }
|
|
b1 := 3 div 2 <= 4 + 3 - 2; { 1 <= 5 -1 }
|
|
b1 := 3 div (-2) > 4 + (3 - 2); { -1 > 5 0 }
|
|
b1 := 4 * 3 div (-2) >= (4 + 3) - 2; { -6 >= 5 0 }
|
|
|
|
{ floating point operations }
|
|
{ to be provided }
|
|
|
|
{ string operations }
|
|
{ to be provided }
|
|
end.
|