Browse Source

* fixed typo in diagnostic output

git-svn-id: trunk@11245 -
Jonas Maebe 17 years ago
parent
commit
b1faab363e
1 changed files with 1 additions and 1 deletions
  1. 1 1
      tests/test/tprec23.pp

+ 1 - 1
tests/test/tprec23.pp

@@ -189,7 +189,7 @@ begin
        bit9_15 := 63;
        bit9_15 := 63;
        assert((AsWord and $7fff) = $7FFF, 'Is: ' + IntToHex(Asword,4) + ' Should be $7FFF');
        assert((AsWord and $7fff) = $7FFF, 'Is: ' + IntToHex(Asword,4) + ' Should be $7FFF');
 {$else}
 {$else}
-       assert((AsWord and $fffe) = $c000, 'Is: ' + IntToHex(Asword,4) + ' Should be $C001');
+       assert((AsWord and $fffe) = $c000, 'Is: ' + IntToHex(Asword,4) + ' Should be $C000');
 
 
        bit1_8 := $FE;
        bit1_8 := $FE;
        assert((AsWord and $fffe) = $FF00, 'Is: ' + IntToHex(Asword,4) + ' Should be $FF00');
        assert((AsWord and $fffe) = $FF00, 'Is: ' + IntToHex(Asword,4) + ' Should be $FF00');