paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 13:38:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* corrected test

Browse Source
This commit is contained in:
Jonas Maebe 2002-10-29 20:32:50 +00:00
parent d048399012
commit 1a1686620e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw2037.pp
View File

@ -4,7 +4,7 @@
program tw2037; program tw2037;
const const
FILE_FLAG_WRITE_THROUGH = 2147483648; FILE_FLAG_WRITE_THROUGH = -2147483648;
FILE_ATTRIBUTE_NORMAL = 128; FILE_ATTRIBUTE_NORMAL = 128;
var var
@ -12,4 +12,4 @@ var
begin begin
anattr := FILE_FLAG_WRITE_THROUGH or FILE_ATTRIBUTE_NORMAL; anattr := FILE_FLAG_WRITE_THROUGH or FILE_ATTRIBUTE_NORMAL;
end. end.