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

* AnsiChar is equivalent of Char, use only type renamings

Browse Source
This commit is contained in:
peter 2004-09-21 15:04:22 +00:00
parent 8d5c6a5aa5
commit 97260ca1bf
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/systemh.inc
View File

@ -195,10 +195,12 @@ Type
PChar = ^Char; PChar = ^Char;
PPChar = ^PChar; PPChar = ^PChar;
{ AnsiChar is equivalent of Char, so we need
to use type renamings }
TAnsiChar = Char; TAnsiChar = Char;
AnsiChar = TAnsiChar; AnsiChar = Char;
PAnsiChar = ^TAnsiChar; PAnsiChar = PChar;
PPAnsiChar = ^PAnsiChar; PPAnsiChar = PPChar;
UCS4Char = type LongWord; UCS4Char = type LongWord;
PUCS4Char = ^UCS4Char; PUCS4Char = ^UCS4Char;
@ -753,7 +755,10 @@ const
{ {
$Log$ $Log$
Revision 1.99 2004-08-29 10:23:12 peter Revision 1.100 2004-09-21 15:04:22 peter
* AnsiChar is equivalent of Char, use only type renamings
Revision 1.99 2004/08/29 10:23:12 peter
no message no message
Revision 1.98 2004/07/18 20:21:44 florian Revision 1.98 2004/07/18 20:21:44 florian