paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 18:28:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Explicitly specify CP1252 for registry tests which depends on this CP.

Browse Source
This commit is contained in:
Yuriy Sydorov 2021-09-11 17:56:33 +03:00
parent c7c8e2e008
commit bcaa2c9758
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/packages/fcl-registry/tw35060a.pp
View File

@ -1,4 +1,5 @@
{ %TARGET=win32,win64,wince }
{ %OPT=-Fccp1252 }
program tw35060a;
@ -115,6 +116,7 @@ var
Err: Integer;
CP: TSystemCodePage;
begin
DefaultSystemCodePage:=1252;
CreateTestKey;
try
Name := 'äëï';

2
tests/test/packages/fcl-registry/tw35060c.pp
View File

@ -1,4 +1,5 @@
{ %TARGET=win32,win64,wince }
{ %OPT=-Fccp1252 }
program tw35060c;
@ -119,6 +120,7 @@ var
Err: Integer;
begin
DefaultSystemCodePage:=1252;
CreateTestKey;
Name := 'äëï';
U := UnicodeString(Name);