On 10-02-12 13:58, Sven Barth wrote:
If your "fpc-svn" directory is a real svn checkout you can just do a
"svn diff > your-patch.diff". Alternatively you can use should add
"-aur" as argument to diff (in front of the filenames).
Enclosed the new patch. This all compiles, but needs to be verified and
tested.
Or should I make a bugreport ?
Regards,
Koenraad.
Index: fpc-svn/rtl/inc/text.inc
===================================================================
--- fpc-svn/rtl/inc/text.inc (revision 20278)
+++ fpc-svn/rtl/inc/text.inc (working copy)
@@ -1891,11 +1891,13 @@
{$endif FPC_WIDESTRING_EQUAL_UNICODESTRING}
+{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
procedure ReadAnsiStrFinal(var t: textrec);
begin
{ finalise the temp ansistring }
PAnsiString(@t.userdata[StrPtrIndex])^ := '';
end;
+{$endif FPC_HAS_FEATURE_ANSISTRINGS}
procedure ReadStrCommon(var t: textrec; strdata: pchar; len: sizeint);
@@ -1937,7 +1939,7 @@
PSizeInt(@t.userdata[BytesReadIndex])^:=0;
end;
-
+{$ifdef FPC_HAS_FEATURE_ANSISTRINGS}
function fpc_SetupReadStr_Ansistr(const s: ansistring): PText; [public, alias: 'FPC_SETUPREADSTR_ANSISTR']; compilerproc;
begin
setupreadstrcommon(ReadWriteStrText);
@@ -1950,6 +1952,7 @@
end;
function fpc_SetupReadStr_Ansistr_Intern(const s: ansistring): PText; [external name 'FPC_SETUPREADSTR_ANSISTR'];
+{$endif FPC_HAS_FEATURE_ANSISTRINGS}
function fpc_SetupReadStr_Shortstr(const s: shortstring): PText; compilerproc;
Index: fpc-svn/compiler/arm/cpuinfo.pas
===================================================================
--- fpc-svn/compiler/arm/cpuinfo.pas (revision 20278)
+++ fpc-svn/compiler/arm/cpuinfo.pas (working copy)
@@ -74,6 +74,8 @@
ct_at91sam7xc256,
{ STMicroelectronics }
+ ct_stm32f100rb,
+
ct_stm32f103rb,
ct_stm32f103re,
ct_stm32f103c4t,
@@ -301,6 +303,16 @@
sramsize:$00010000
),
+ // ct_stm32f100rb,
+ (
+ controllertypestr:'STM32F100RB';
+ controllerunitstr:'STM32F103';
+ interruptvectors:12;
+ flashbase:$08000000;
+ flashsize:$00020000;
+ srambase:$20000000;
+ sramsize:$00002000
+ ),
// ct_stm32f103rb,
(
controllertypestr:'STM32F103RB';
Index: fpc-svn/compiler/systems/t_embed.pas
===================================================================
--- fpc-svn/compiler/systems/t_embed.pas (revision 20278)
+++ fpc-svn/compiler/systems/t_embed.pas (working copy)
@@ -232,6 +232,7 @@
ct_at91sam7x256,
ct_at91sam7xc256,
+ ct_stm32f100rb,
ct_stm32f103rb,
ct_stm32f103re,
ct_stm32f103c4t,
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
