mORMot Open Source

corchi72

Member

Registered: 2010-12-10

Posts: 232

Error in Zip Archive [4f2294edaa]

the zipped file "Synopse OpenSource-4f2294edaa12cdaf" does not contain the latest changes below

@@ -10216,9 +10216,11 @@
 
 procedure TPropInfo.CopyValue(Source, Dest: TObject);
 var Value: RawByteString;
     S,D: TObject;
+{$ifndef LVCL}
     i: integer;
+{$endif}
 label I64, Int;
 begin
   if (@self<>nil) and (Source<>nil) and (Dest<>Source) and (Dest<>nil) then
 //    (PPointer(Source)^=PPointer(Dest)^) then // allow parent into child e.g.
@@ -20579,9 +20581,9 @@
     if not (ifHasGuid in IntfFlags) then
       raise Exception.CreateFmt('%s interface has no GUID',[ShortName]) else begin
       UID[j] := @Guid;
       for i := 0 to fList.Count-1 do
-        if IsEqualGUID(TServiceFactory(fList.List^[i]).InterfaceIID,Guid) then
+        if IsEqualGUID(TServiceFactory(fList.List[i]).InterfaceIID,Guid) then
           raise Exception.CreateFmt('%s GUID already registered',[ShortName]);
     end;
   // check that all interfaces are implemented by this class
   C := aImplementationClass;
@@ -20636,9 +20638,9 @@
     if dot=0 then
       aInterfaceName := aURI else
       aInterfaceName := Copy(aURI,1,dot-1);
     for i := 0 to fList.Count-1 do begin
-      result := fList.List^[i];
+      result := fList.List[i];
       if (aInterfaceName=result.fInterfaceMangledURI) or
          IdemPropNameU(aInterfaceName,result.fInterfaceURI) then begin
         if dot=0 then
           aURI := '' else
@@ -20653,9 +20655,9 @@
 function TServiceContainer.Service(aIndex: integer): TServiceFactory;
 begin
   if (Self=nil) or (Cardinal(aIndex)>=Cardinal(fList.Count)) then
     result := nil else
-    result := fList.List^[aIndex];
+    result := fList.List[aIndex];
 end;
 
 
 { TServiceFactoryServer }

ab

Administrator

From: France

Registered: 2010-06-21

Posts: 14,667

Website

Re: Error in Zip Archive [4f2294edaa]

The archive is generated by the fossil server - so it is fully automated.

Just select a later commit, and you'll find the expected version.