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

* changed FPC_EMPTYCHAR into a widechar because it's also used for

Browse Source 
widestring -> pwidechar conversions (mantis #9897)

git-svn-id: trunk@8756 -
This commit is contained in:
Jonas Maebe 2007-10-09 17:52:25 +00:00
parent 0ebc1e920a
commit 33c4197f43
3 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8477,6 +8477,7 @@ tests/webtbs/tw9766.pp svneol=native#text/plain
tests/webtbs/tw9827.pp svneol=native#text/plain tests/webtbs/tw9827.pp svneol=native#text/plain
tests/webtbs/tw9894.pp svneol=native#text/plain tests/webtbs/tw9894.pp svneol=native#text/plain
tests/webtbs/tw9894a.pp svneol=native#text/plain tests/webtbs/tw9894a.pp svneol=native#text/plain
tests/webtbs/tw9897.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain tests/webtbs/uw0555.pp svneol=native#text/plain

5
rtl/inc/system.inc
View File

@ -40,9 +40,10 @@ const
{ For Error Handling.} { For Error Handling.}
ErrorBase : Pointer = nil; ErrorBase : Pointer = nil;
{ Used by the ansistrings and maybe also other things in the future } { Used by the ansi/widestrings and maybe also other things in the future }
var var
emptychar : char;public name 'FPC_EMPTYCHAR'; { widechar, because also used by widestring -> pwidechar conversions }
emptychar : widechar;public name 'FPC_EMPTYCHAR';
initialstklen : SizeUint;external name '__stklen'; initialstklen : SizeUint;external name '__stklen';
{ checks whether the given suggested size for the stack of the current { checks whether the given suggested size for the stack of the current

15
tests/webtbs/tw9897.pp Normal file
View File

@ -0,0 +1,15 @@
program widecharbug;
var
AText : WideString;
AWideChar: PWideChar;
begin
AText := '';
AWideChar := PWideChar(AText);
if PWord(AWideChar)^<>0 then
begin
writeln(PWord(AWideChar)^);
halt(1);
end;
end.