Quellcode durchsuchen

* fixed typo in diagnostic output

git-svn-id: trunk@11245 -
Jonas Maebe vor 17 Jahren
Ursprung
Commit
b1faab363e
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  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');