On 2015-08-26 00:26, Bart wrote:
On 8/25/15, Torsten Bonde Christiansen <[email protected]> wrote:
Hi.
I get the following error (see picture) on a clean installation of FPC
3.0.0 RC1 (just released) and the latest trunk:
Lazarus 1.5 r49709M FPC 3.0.0 x86_64-linux-gtk 2
What is the value of $FPC_FULLVERSION in this RC?
See revision 49401 and associated bugreport
http://bugs.freepascal.org/view.php?id=27754
Does it work if you change all {$IF FPC_FULLVERSION >= 30001}
into {$IF FPC_FULLVERSION >= 30000} in lresources.pp?
Yep - it worked fine changing to {$IF FPC_FULLVERSION >= 30000} in
lresources.pp
However, I found that this was not the only place where this could be an
issue - the
laz_xmlstreaming.pas file had the same issue.
I have attached two patches updating the metioned files.
Regards,
Torsten.
Index: components/lazutils/laz_xmlstreaming.pas
===================================================================
--- components/lazutils/laz_xmlstreaming.pas (revision 49710)
+++ components/lazutils/laz_xmlstreaming.pas (working copy)
@@ -77,7 +77,7 @@
procedure WriteSet(Value: LongInt; SetType: Pointer); override;
procedure WriteString(const Value: String); override;
procedure WriteWideString(const Value: WideString); override;
- {$IF FPC_FULLVERSION >= 30101}
+ {$IF FPC_FULLVERSION >= 30000}
procedure WriteSignature; override;
{$ENDIF}
{$IFDEF USE_NEW_READER_WRITER}
@@ -131,7 +131,7 @@
function ReadStr: String; override;
function ReadString(StringType: TValueType): String; override;
function ReadWideString: WideString; override;
- {$IF FPC_FULLVERSION >= 30101}
+ {$IF FPC_FULLVERSION >= 30000}
procedure ReadSignature; override;
{$ENDIF}
{$IFDEF USE_NEW_READER_WRITER}
@@ -468,7 +468,7 @@
GetPropertyElement('widestring')['value'] := System.UTF8Encode(Value);
end;
-{$IF FPC_FULLVERSION >= 30101}
+{$IF FPC_FULLVERSION >= 30000}
procedure TXMLObjectWriter.WriteSignature;
begin
end;
@@ -1143,7 +1143,7 @@
//writeln('TXMLObjectReader.ReadWideString "',ValueAsUTF8,'"');
end;
-{$IF FPC_FULLVERSION >= 30101}
+{$IF FPC_FULLVERSION >= 30000}
procedure TXMLObjectReader.ReadSignature;
begin
end;
Index: lcl/lresources.pp
===================================================================
--- lcl/lresources.pp (revision 49710)
+++ lcl/lresources.pp (working copy)
@@ -172,7 +172,7 @@
function ReadInt32: LongInt; override;
function ReadInt64: Int64; override;
function ReadSet(EnumType: Pointer): Integer; override;
- {$IF FPC_FULLVERSION >= 30001}
+ {$IF FPC_FULLVERSION >= 30000}
procedure ReadSignature; override;
{$ENDIF}
function ReadStr: String; override;
@@ -272,7 +272,7 @@
procedure BeginCollection; override;{ Ends with the next "EndList" }
procedure BeginComponent(Component: TComponent; Flags: TFilerFlags;
ChildPos: Integer); override; { Ends after the second "EndList" }
- {$IF FPC_FULLVERSION >= 30001}
+ {$IF FPC_FULLVERSION >= 30000}
procedure WriteSignature; override;
{$ENDIF}
procedure BeginList; override;
@@ -4224,7 +4224,7 @@
end;
end;
-{$IF FPC_FULLVERSION >= 30001}
+{$IF FPC_FULLVERSION >= 30000}
procedure TLRSObjectReader.ReadSignature;
begin
end;
@@ -4758,7 +4758,7 @@
EndHeader;
end;
-{$IF FPC_FULLVERSION >= 30001}
+{$IF FPC_FULLVERSION >= 30000}
procedure TLRSObjectWriter.WriteSignature;
begin
end;
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
