Changeset 100 for VisualSwapcodes

Timestamp:

Feb 20, 2007, 6:10:14 PM (18 years ago)

Author:

alloc

Message:

 

Location:

VisualSwapcodes

Files:

• Project1.exe (modified) ( previous)
• Unit1.pas (modified) (1 diff)

VisualSwapcodes/Unit1.pas

@@ -212 +212 @@
 begin
   if Self.name = 'SWAPC_FIXARR_S' then
-    Self.size := Self.size * Self.count
+  begin
+    Self.size := Self.size * Self.count;
+    Self.parent.size := Self.parent.size + Self.size;
+  end
   else
     Self.size := Self.count;