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

* Define char as AnsiChar

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-12-21 16:40:09 +01:00 committed by Michael Van Canneyt
parent ce41aa9557
commit adf9f98f7c
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/options.pas
View File

@ -4736,6 +4736,7 @@ procedure read_arguments(cmd:TCmdStr);
def_system_macro('FPC_HAS_LWSYNC');
{$endif}
def_system_macro('FPC_HAS_ANSICHAR_CHAR');
{ currently, all supported CPUs have an internal sar implementation }
def_system_macro('FPC_HAS_INTERNAL_SAR');
{$ifdef SUPPORT_GET_FRAME}

6
compiler/psystem.pas
View File

@ -544,7 +544,7 @@ implementation
addtype('LongInt',s32inttype);
addtype('QWord',u64inttype);
addtype('Int64',s64inttype);
addtype('Char',cansichartype);
addtype('AnsiChar',cansichartype);
addtype('WideChar',cwidechartype);
addtype('Text',cfiledef.createtext);
addtype('TypedFile',cfiledef.createtyped(voidtype));
@ -577,7 +577,7 @@ implementation
addtype('$int64',s64inttype);
addtype('$uint128',u128inttype);
addtype('$int128',s128inttype);
addtype('$char',cansichartype);
addtype('$ansichar',cansichartype);
addtype('$widechar',cwidechartype);
addtype('$shortstring',cshortstringtype);
addtype('$longstring',clongstringtype);
@ -739,7 +739,7 @@ implementation
loadtype('typedformal',ctypedformaltype);
loadtype('void',voidtype);
loadtype('void_pointer',voidpointertype);
loadtype('char',cansichartype);
loadtype('ansichar',cansichartype);
loadtype('widechar',cwidechartype);
loadtype('shortstring',cshortstringtype);
loadtype('longstring',clongstringtype);

2
compiler/symdef.pas
View File

@ -3543,7 +3543,7 @@ implementation
'ShortInt','SmallInt','LongInt','Int64','Int128',
'Boolean','Boolean8','Boolean16','Boolean32','Boolean64',
'ByteBool','WordBool','LongBool','QWordBool',
'Char','WideChar','Currency','CustomRange');
'AnsiChar','WideChar','Currency','CustomRange');
begin
GetTypeName:=names[ordtype];