[Instantobjects-cvscommit] SF.net SVN: instantobjects:[825] trunk/Source/Core/InstantCode.pas

[<dav...@us...>]

Revision: 825
          http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=825&view=rev
Author:   davidvtaylor
Date:     2009-08-14 09:20:30 +0000 (Fri, 14 Aug 2009)

Log Message:
-----------
Revert rev 824 changes in rev 823 corrected the issue

Revision Links:
--------------
    http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=824&view=rev
    http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=823&view=rev

Modified Paths:
--------------
    trunk/Source/Core/InstantCode.pas

Modified: trunk/Source/Core/InstantCode.pas
===================================================================
--- trunk/Source/Core/InstantCode.pas	2009-08-14 08:30:21 UTC (rev 824)
+++ trunk/Source/Core/InstantCode.pas	2009-08-14 09:20:30 UTC (rev 825)
@@ -25,7 +25,7 @@
  *
  * Contributor(s):
  * Carlo Barazzetta, Andrea Petrelli, Nando Dessena, Steven Mitchell,
- * Uberto Barbini, Joao Morais, Riceball Lee, Brian Andersen, David Taylor
+ * Uberto Barbini, Joao Morais, Riceball Lee, Brian Andersen
  *
  * ***** END LICENSE BLOCK ***** *)
 
@@ -8880,22 +8880,15 @@
 
 var
   Section: TInstantCodeInitializationSection;
-  Origin: TInstantCodePos; 
   Pos: TInstantCodePos;
 begin
   Section := Module.InitializationSection;
   if not Section.IsFiled then
   begin
     CursorPos := Module.ImplementationSection.EndPos;
-    Origin := CursorPos;
     InsertMode := imAfter;
     InsertObjectText(Section);
-
-    // Set position of newly added Initialization section
-    Section.StartPos := Origin;
-    Section.EndPos := CursorPos;
   end;
-
   CursorPos := Section.StartPos;
   SkipLine;
   if FindText(RegisterProcName) then