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

* make unicodechar equivalent to widechar, resolves #12233

Browse Source 
git-svn-id: trunk@11830 -
This commit is contained in:
florian 2008-09-27 12:40:42 +00:00
parent 17e7c221fd
commit f64dbd70cf
3 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8562,6 +8562,7 @@ tests/webtbs/tw12202.pp svneol=native#text/plain
tests/webtbs/tw12214.pp svneol=native#text/plain tests/webtbs/tw12214.pp svneol=native#text/plain
tests/webtbs/tw1222.pp svneol=native#text/plain tests/webtbs/tw1222.pp svneol=native#text/plain
tests/webtbs/tw1223.pp svneol=native#text/plain tests/webtbs/tw1223.pp svneol=native#text/plain
tests/webtbs/tw12233.pp svneol=native#text/plain
tests/webtbs/tw1228.pp svneol=native#text/plain tests/webtbs/tw1228.pp svneol=native#text/plain
tests/webtbs/tw1229.pp svneol=native#text/plain tests/webtbs/tw1229.pp svneol=native#text/plain
tests/webtbs/tw1250.pp svneol=native#text/plain tests/webtbs/tw1250.pp svneol=native#text/plain

2
rtl/inc/systemh.inc
View File

@ -351,7 +351,7 @@ Type
PUCS2Char = PWideChar; PUCS2Char = PWideChar;
PWideString = ^WideString; PWideString = ^WideString;
UnicodeChar = type WideChar; UnicodeChar = WideChar;
PUnicodeChar = ^UnicodeChar; PUnicodeChar = ^UnicodeChar;
{$ifdef VER2_2} {$ifdef VER2_2}
{ this is only to avoid too much ifdefs in the code } { this is only to avoid too much ifdefs in the code }

13
tests/webtbs/tw12233.pp Normal file
View File

@ -0,0 +1,13 @@
program postest;
{$mode objfpc}{$H+}
var
wchar: WideChar;
wstring: WideString;
begin
wchar := 'a';
wstring := 'badc';
writeln(Pos(wchar, wstring));
end.