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

* disable longstring

Browse Source
This commit is contained in:
peter 2005-02-04 16:30:40 +00:00
parent 617c5a02f5
commit bc1e63a7db
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/psystem.pas
View File

@ -146,9 +146,13 @@ implementation
{$endif x86} {$endif x86}
addtype('Currency',s64currencytype); addtype('Currency',s64currencytype);
addtype('Pointer',voidpointertype); addtype('Pointer',voidpointertype);
{$ifdef x86}
addtype('FarPointer',voidfarpointertype); addtype('FarPointer',voidfarpointertype);
{$endif x86}
addtype('ShortString',cshortstringtype); addtype('ShortString',cshortstringtype);
{$ifdef support_longstring}
addtype('LongString',clongstringtype); addtype('LongString',clongstringtype);
{$endif support_longstring}
{$ifdef ansistring_bits} {$ifdef ansistring_bits}
addtype('AnsiString',cansistringtype16); addtype('AnsiString',cansistringtype16);
addtype('AnsiString',cansistringtype32); addtype('AnsiString',cansistringtype32);
@ -542,7 +546,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.76 2005-01-19 22:19:41 peter Revision 1.77 2005-02-04 16:30:40 peter
* disable longstring
Revision 1.76 2005/01/19 22:19:41 peter
* unit mapping rewrite * unit mapping rewrite
* new derefmap added * new derefmap added