[JVCL-Checkins] SF.net SVN: jvcl: [11046] trunk/jvcl/run/JvDSADialogs.pas

[<ou...@us...>]

Revision: 11046
          http://svn.sourceforge.net/jvcl/?rev=11046&view=rev
Author:   outchy
Date:     2006-11-26 13:52:05 -0800 (Sun, 26 Nov 2006)

Log Message:
-----------
Fixed DEP issue

Modified Paths:
--------------
    trunk/jvcl/run/JvDSADialogs.pas

Modified: trunk/jvcl/run/JvDSADialogs.pas
===================================================================
--- trunk/jvcl/run/JvDSADialogs.pas	2006-11-26 21:14:37 UTC (rev 11045)
+++ trunk/jvcl/run/JvDSADialogs.pas	2006-11-26 21:52:05 UTC (rev 11046)
@@ -2191,7 +2191,7 @@
 var
   OldProt, Dummy: Cardinal;
 begin
-  VirtualProtect(Pointer(PInteger(Instance)^ + VMTIdx * SizeOf(Pointer)), SizeOf(Pointer), PAGE_READWRITE, OldProt);
+  VirtualProtect(Pointer(PInteger(Instance)^ + VMTIdx * SizeOf(Pointer)), SizeOf(Pointer), PAGE_EXECUTE_READWRITE, OldProt);
   try
     PInteger(Pointer(PInteger(Instance)^ + VMTIdx * SizeOf(Pointer)))^ := Integer(MethodPtr);
   finally


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.