Changeset 337 for Network

Timestamp:

Feb 27, 2012, 11:48:10 AM (13 years ago)

Author:

chronos

Message:

• Fixed: Compilation error in synapse package.

Location:

Network

Files:

• CoolWeb/CoolWeb.lpk (modified) (2 diffs)
• synapse/synadbg.pas (modified) (2 diffs)

Network/CoolWeb/CoolWeb.lpk

@@ -6 +6 @@
     <Author Value="Chronos (robie@centrum.cz)"/>
     <CompilerOptions>
-      <Version Value="10"/>
+      <Version Value="11"/>
       <SearchPaths>
-        <OtherUnitFiles Value="WebServer;Persistence;Network;Modules;Common"/>
+        <OtherUnitFiles Value="WebServer;Persistence;Network;Modules;Common;/usr/lib/mysql/;/usr/lib64/mysql/"/>
         <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
       </SearchPaths>
-      <Linking>
-        <Debugging>
-          <GenerateDebugInfo Value="True"/>
-          <DebugInfoType Value="dsAuto"/>
-        </Debugging>
-      </Linking>
       <Other>
         <CompilerMessages>
@@ -114 +108 @@
       <Item4>
         <PackageName Value="TemplateGenerics"/>
-        <MaxVersion Minor="3" Valid="True"/>
+        <MaxVersion Minor="3"/>
         <MinVersion Minor="3" Valid="True"/>
       </Item4>

Network/synapse/synadbg.pas

@@ -127 +127 @@
     s := '-unknown-';
   end;
-  s := inttohex(integer(Sender), 8) + s + ': ' + value + CRLF;
+  s := inttohex(integer(Pointer(Sender)), 8) + s + ': ' + value + CRLF;
   AppendToLog(s);
 end;
@@ -141 +141 @@
   else
     d := '<- ';
-  s :=inttohex(integer(Sender), 8) + d + s + CRLF;
+  s :=inttohex(integer(Pointer(Sender)), 8) + d + s + CRLF;
   AppendToLog(s);
 end;