diff options
| author | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-09-28 18:54:32 +0000 |
|---|---|---|
| committer | florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-09-28 18:54:32 +0000 |
| commit | 41c8f67a998ee623ac218c2d51c8dcedbfe88ed5 (patch) | |
| tree | 488a26cc22fc2daa7e8aaf1cee839cf183d036df /compiler/widestr.pas | |
| parent | 6968cb7412493cde025d2a1557183054be153cb4 (diff) | |
| download | fpc-41c8f67a998ee623ac218c2d51c8dcedbfe88ed5.tar.gz | |
* make compiler compilable with 2.4.4 rtl
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@19269 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/widestr.pas')
| -rw-r--r-- | compiler/widestr.pas | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/compiler/widestr.pas b/compiler/widestr.pas index e02a03c717..18646424d5 100644 --- a/compiler/widestr.pas +++ b/compiler/widestr.pas @@ -28,7 +28,7 @@ unit widestr; interface uses - {$ifdef VER2_2}ccharset{$else VER2_2}charset{$endif VER2_2},globtype; + {$ifdef VER2_4}ccharset{$else VER2_4}charset{$endif VER2_4},globtype; type @@ -59,7 +59,7 @@ unit widestr; function cpavailable(const s : string) : boolean; function cpavailable(cp : word) : boolean; procedure changecodepage( - s : pchar; l : SizeInt; scp : tstringencoding; + s : pchar; l : SizeInt; scp : tstringencoding; d : pchar; dcp : tstringencoding ); function codepagebyname(const s : string) : tstringencoding; @@ -284,15 +284,15 @@ unit widestr; function cpavailable(const s : string) : boolean; begin cpavailable:=mappingavailable(lower(s)); - end; - + end; + function cpavailable(cp : word) : boolean; begin cpavailable:=mappingavailable(cp); - end; + end; procedure changecodepage( - s : pchar; l : SizeInt; scp : tstringencoding; + s : pchar; l : SizeInt; scp : tstringencoding; d : pchar; dcp : tstringencoding ); var @@ -311,7 +311,7 @@ unit widestr; inc(dest); inc(source); end; - end; + end; function codepagebyname(const s : string) : tstringencoding; var @@ -320,7 +320,7 @@ unit widestr; Result:=0; p:=getmap(s); if (p<>nil) then - Result:=p^.cp; + Result:=p^.cp; end; end. |