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

* fixed system.openchararraytype after r27970 (mantis #26359)

Browse Source 
git-svn-id: trunk@27998 -
This commit is contained in:
Jonas Maebe 2014-06-18 20:20:04 +00:00
parent 0106f860eb
commit de0041466f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/psystem.pas
View File

@ -235,8 +235,6 @@ implementation
cunicodestringtype:=cstringdef.createunicode;
{ length=0 for shortstring is open string (needed for readln(string) }
openshortstringtype:=cstringdef.createshort(0);
openchararraytype:=carraydef.create(0,-1,s32inttype);
tarraydef(openchararraytype).elementdef:=cansichartype;
{$ifdef x86}
create_fpu_types;
{$ifndef FPC_SUPPORT_X87_TYPES_ON_WIN64}
@ -286,6 +284,8 @@ implementation
{$endif jvm}
set_default_int_types;
{ some other definitions }
openchararraytype:=carraydef.create(0,-1,ptrsinttype);
tarraydef(openchararraytype).elementdef:=cansichartype;
charpointertype:=cpointerdef.create(cansichartype);
widecharpointertype:=cpointerdef.create(cwidechartype);
{$ifdef i8086}