* Marius <[EMAIL PROTECTED]> [Tue, 29 Jan 2008 21:06:49 +0100]:
Cause seems to be passing a read only property into the var parameter
of: ReadXMLFile(var ADoc: TXMLDocument; ....).
Marco van de Voort wrote:
>
> Free Pascal Compiler version 2.3.1 [2008/01/29] for i386
> Copyright (c) 1993-2007 by Florian Klaempfl
> Target OS: Win32 for i386
> Compiling lazarus.pp
> Compiling main.pp
> Compiling projectinspector.pas
> Compiling addtoprojectdlg.pas
> Compiling D:\repo\lazarus\packager\packagesystem.pas
> Compiling dialogprocs.pas
> dialogprocs.pas(314,34) Error: Can't take the address of constant
> expressions
> dialogprocs.pas(619) Fatal: There were 1 errors compiling module,
stopping
> Fatal: Compilation aborted
> make[2]: *** [lazarus.exe] Error 1
> make[2]: Leaving directory `D:/repo/lazarus/ide'
> make[1]: *** [ide] Error 2
> make[1]: Leaving directory `D:/repo/lazarus/ide'
> make: *** [ide] Error 2
Index: dialogprocs.pas
===================================================================
--- dialogprocs.pas (revision 13913)
+++ dialogprocs.pas (working copy)
@@ -295,6 +295,8 @@
end;
end;
+type THackXMLConfig = class(TXMLConfig);
+
function LoadXMLConfigFromCodeBuffer(const Filename: string;
Config: TXMLConfig; out ACodeBuffer: TCodeBuffer; Flags:
TLoadBufferFlags
): TModalResult;
@@ -311,7 +313,7 @@
ACodeBuffer.SaveToStream(ms);
ms.Position:=0;
try
- ReadXMLFile(Config.Document,ms);
+ ReadXMLFile(THackXMLConfig(Config).doc,ms);
except
on E: Exception do begin
Result:=MessageDlg('XML Error',
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives