ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/VisualSwapcodes/Unit1.pas

Comparing VisualSwapcodes/Unit1.pas (file contents):
Revision 99 by alloc, Tue Feb 20 16:34:20 2007 UTC vs.
Revision 100 by alloc, Tue Feb 20 17:10:14 2007 UTC

#	Line 211 | Line 211 | end;
211		function TSwapList.CloseArray: TSwapList;
212		begin
213		if Self.name = 'SWAPC_FIXARR_S' then
214	<	Self.size := Self.size * Self.count
214	>	begin
215	>	Self.size := Self.size * Self.count;
216	>	Self.parent.size := Self.parent.size + Self.size;
217	>	end
218		else
219		Self.size := Self.count;
220		Result := Self.parent;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)