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

* enable more features for avr6

Browse Source 
* ifdef'ed uncompilable procedures

git-svn-id: trunk@37584 -
This commit is contained in:
florian 2017-11-12 22:14:21 +00:00
parent 7debc7920a
commit b086b10adf
3 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/embedded/rtl.cfg
View File

@ -168,7 +168,9 @@
-SfEXCEPTIONS -SfEXCEPTIONS
-SfCLASSES -SfCLASSES
-SfRTTI -SfRTTI
# AVR6 has normally more memory, so enable more functions
#ifdef CPUAVR6 #ifdef CPUAVR6
-SfANSISTRINGS
-SfWIDESTRINGS -SfWIDESTRINGS
-SfDYNARRAYS -SfDYNARRAYS
-SfTHREADING -SfTHREADING

6
rtl/inc/system.inc
View File

@ -1332,6 +1332,11 @@ End;
{$ifdef FPC_HAS_FEATURE_HEAP} {$ifdef FPC_HAS_FEATURE_HEAP}
{$ifdef FPC_HAS_FEATURE_ANSISTRINGS} {$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
function ArrayStringToPPchar(const S:Array of AnsiString;reserveentries:Longint):ppchar; // const ? function ArrayStringToPPchar(const S:Array of AnsiString;reserveentries:Longint):ppchar; // const ?
{$ifdef EXCLUDE_COMPLEX_PROCS}
begin
runerror(217);
end;
{$else EXCLUDE_COMPLEX_PROCS}
// Extra allocate reserveentries pchar's at the beginning (default param=0 after 1.0.x ?) // Extra allocate reserveentries pchar's at the beginning (default param=0 after 1.0.x ?)
// Note: for internal use by skilled programmers only // Note: for internal use by skilled programmers only
// if "s" goes out of scope in the parent procedure, the pointer is dangling. // if "s" goes out of scope in the parent procedure, the pointer is dangling.
@ -1354,6 +1359,7 @@ begin
p[high(s)+1+Reserveentries]:=nil; p[high(s)+1+Reserveentries]:=nil;
ArrayStringToPPchar:=p; ArrayStringToPPchar:=p;
end; end;
{$endif EXCLUDE_COMPLEX_PROCS}
Function StringToPPChar(Var S:AnsiString;ReserveEntries:integer):ppchar; Function StringToPPChar(Var S:AnsiString;ReserveEntries:integer):ppchar;

12
rtl/inc/ustrings.inc
View File

@ -1690,6 +1690,11 @@ function UnicodeToUtf8(Dest: PChar; Source: PUnicodeChar; MaxBytes: SizeInt): Si
function UnicodeToUtf8(Dest: PChar; MaxDestBytes: SizeUInt; Source: PUnicodeChar; SourceChars: SizeUInt): SizeUInt; function UnicodeToUtf8(Dest: PChar; MaxDestBytes: SizeUInt; Source: PUnicodeChar; SourceChars: SizeUInt): SizeUInt;
{$ifdef EXCLUDE_COMPLEX_PROCS}
begin
runerror(217);
end;
{$else EXCLUDE_COMPLEX_PROCS}
var var
i,j : SizeUInt; i,j : SizeUInt;
lw : longword; lw : longword;
@ -1782,6 +1787,7 @@ function UnicodeToUtf8(Dest: PChar; MaxDestBytes: SizeUInt; Source: PUnicodeChar
end; end;
result:=j+1; result:=j+1;
end; end;
{$endif EXCLUDE_COMPLEX_PROCS}
function Utf8ToUnicode(Dest: PUnicodeChar; Source: PChar; MaxChars: SizeInt): SizeInt;{$ifdef SYSTEMINLINE}inline;{$endif} function Utf8ToUnicode(Dest: PUnicodeChar; Source: PChar; MaxChars: SizeInt): SizeInt;{$ifdef SYSTEMINLINE}inline;{$endif}
@ -1794,6 +1800,11 @@ function Utf8ToUnicode(Dest: PUnicodeChar; Source: PChar; MaxChars: SizeInt): Si
function UTF8ToUnicode(Dest: PUnicodeChar; MaxDestChars: SizeUInt; Source: PChar; SourceBytes: SizeUInt): SizeUInt; function UTF8ToUnicode(Dest: PUnicodeChar; MaxDestChars: SizeUInt; Source: PChar; SourceBytes: SizeUInt): SizeUInt;
{$ifdef EXCLUDE_COMPLEX_PROCS}
begin
runerror(217);
end;
{$else EXCLUDE_COMPLEX_PROCS}
const const
UNICODE_INVALID=63; UNICODE_INVALID=63;
var var
@ -2072,6 +2083,7 @@ function UTF8ToUnicode(Dest: PUnicodeChar; MaxDestChars: SizeUInt; Source: PChar
Result:=OutputUnicode+1; Result:=OutputUnicode+1;
end; end;
end; end;
{$endif EXCLUDE_COMPLEX_PROCS}
function UTF8Encode(const s : RawByteString) : RawByteString; inline; function UTF8Encode(const s : RawByteString) : RawByteString; inline;