Changeset 80 for trunk/UBFTarget.pas

Timestamp:

Jan 1, 2017, 11:34:52 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Exception if optimization for empty code was used.
• Fixed: Correctly show used memory cells.

File:

• trunk/UBFTarget.pas (modified) (2 diffs)

trunk/UBFTarget.pas

@@ -110 +110 @@
   // Replace old program by new program
   SetLength(FProgram, Length(NewProgram));
-  Move(NewProgram[0], FProgram[0], SizeOf(TMachineOperation) * Length(NewProgram));
+  Move(Pointer(NewProgram)^, Pointer(FProgram)^, SizeOf(TMachineOperation) * Length(NewProgram));
 end;
 
@@ -251 +251 @@
   // Replace old program by new program
   SetLength(FProgram, Length(NewProgram));
-  Move(NewProgram[0], FProgram[0], SizeOf(TMachineOperation) * Length(NewProgram));
+  Move(Pointer(NewProgram)^, Pointer(FProgram)^, SizeOf(TMachineOperation) * Length(NewProgram));
 end;