From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Fri, 18 Aug 2017 23:06:57 +0000 (+0300)
Subject: pointer taking is typed now (it is safer this way)
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;ds=sidebyside;h=9358607d5a98ffd3451f2ea7d4a8332e86cc6079;p=d2df-sdl.git

pointer taking is typed now (it is safer this way)
---

diff --git a/src/engine/e_graphics.pas b/src/engine/e_graphics.pas
index 3ce6890..c232759 100644
--- a/src/engine/e_graphics.pas
+++ b/src/engine/e_graphics.pas
@@ -1739,7 +1739,7 @@ begin
         sign[2] := 68;
         sign[3] := 82;
         st.writeBuffer(sign, 4);
-        crc := crc32(0, @sign, 4);
+        crc := crc32(0, @sign[0], 4);
         hbuf[0] := 0;
         hbuf[1] := 0;
         hbuf[2] := (Width shr 8) and $ff;
@@ -1753,7 +1753,7 @@ begin
         hbuf[10] := 0; // compression method
         hbuf[11] := 0; // filter method
         hbuf[12] := 0; // no interlace
-        crc := crc32(crc, @hbuf, 13);
+        crc := crc32(crc, @hbuf[0], 13);
         st.writeBuffer(hbuf, 13);
         writeIntBE(st, crc);
         //e_WriteLog('PNG: header written', MSG_NOTIFY);
@@ -1765,7 +1765,7 @@ begin
         sign[2] := 65;
         sign[3] := 84;
         st.writeBuffer(sign, 4);
-        crc := crc32(0, @sign, 4);
+        crc := crc32(0, @sign[0], 4);
         crc := crc32(crc, obuf, dlen);
         st.writeBuffer(obuf^, dlen);
         writeIntBE(st, crc);
@@ -1778,7 +1778,7 @@ begin
         sign[2] := 78;
         sign[3] := 68;
         st.writeBuffer(sign, 4);
-        crc := crc32(0, @sign, 4);
+        crc := crc32(0, @sign[0], 4);
         writeIntBE(st, crc);
         //e_WriteLog('PNG: end marker written', MSG_NOTIFY);
       finally
diff --git a/src/game/g_textures.pas b/src/game/g_textures.pas
index 45ae37f..12072bb 100644
--- a/src/game/g_textures.pas
+++ b/src/game/g_textures.pas
@@ -847,7 +847,7 @@ end;
 
 
 var
-  ltexid: Integer = 0;
+  ltexid: GLuint = 0;
 
 function g_Texture_Light(): Integer;
 const
diff --git a/src/shared/a_modes.inc b/src/shared/a_modes.inc
index 277c6a7..9c5c74c 100644
--- a/src/shared/a_modes.inc
+++ b/src/shared/a_modes.inc
@@ -47,7 +47,7 @@
 {$SAFEFPUEXCEPTIONS OFF}
 {$SCOPEDENUMS OFF} // this will possibly be changed later
 {$SMARTLINK ON}
-{$TYPEDADDRESS OFF}
+{$TYPEDADDRESS ON}
 {$TYPEINFO OFF}
 {$VARSTRINGCHECKS OFF}