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 3ce6890983813bc23af01d68666943658a6609ff..c2327594645bd7ab45d5c6ee5cfc66a5c57f2f05 100644 (file)
--- 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 45ae37f73a17e422072f17142163e5a35660c049..12072bb52944ea015b546f50fc605011be3b9cf1 100644 (file)
--- 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 277c6a737acfb75a81903cafc4dc8cc6dc10116c..9c5c74c08774122fa8a2e705e89f63d449807b3a 100644 (file)
--- 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}