Changeset 172 for branches/virtualcpu4/UFormMain.pas

Timestamp:

Apr 10, 2019, 11:49:27 PM (6 years ago)

Author:

chronos

Message:

• Added: Build modes.
• Fixed: Background thread code should not access main thread visual controls.

Location:

branches/virtualcpu4

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (8 diffs)

branches/virtualcpu4

@@ -1 +1 @@
 lib
 virtucpu4.exe
+virtucpu4
 *.lps
 *.res

@@ -1 +1 @@
 lib
 virtucpu4.exe
+virtucpu4
 *.lps
 *.res

branches/virtualcpu4/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls,
-  ComCtrls, UCpu, UInstructionWriter;
+  ComCtrls, UCpu, UInstructionWriter, syncobjs;
 
 type
@@ -32 +32 @@
     procedure Timer1Timer(Sender: TObject);
   private
-    KeyInputBuffer: array of Char;
+    InputBuffer: string;
+    OutputBuffer: string;
+    Lock: TCriticalSection;
     function CpuInput(Port: TAddress): TRegister;
     procedure CpuOutput(Port: TAddress; Value: TRegister);
@@ -67 +69 @@
 procedure TFormMain.FormCreate(Sender: TObject);
 begin
+  Lock := TCriticalSection.Create;
   Cpu := TCpu.Create;
   Cpu.OnInput := CpuInput;
@@ -80 +83 @@
   InstructionWriter.Free;
   Cpu.Free;
+  Lock.Free;
 end;
 
@@ -120 +124 @@
 procedure TFormMain.Memo1KeyPress(Sender: TObject; var Key: char);
 begin
-  SetLength(KeyInputBuffer, Length(KeyInputBuffer) + 1);
-  KeyInputBuffer[High(KeyInputBuffer)] := Key;
+  Lock.Acquire;
+  InputBuffer := InputBuffer + Key;
+  Lock.Release;
 end;
 
@@ -129 +134 @@
   ReloadMemoryDump;
   ReloadRegisterDump;
+  Lock.Acquire;
+  Memo1.Lines.Text := Memo1.Lines.Text + OutputBuffer;
+  SetLength(OutputBuffer, 0);
+  Lock.Release;
 end;
 
@@ -186 +195 @@
   case Port of
     0: begin
-      while (Length(KeyInputBuffer) = 0) and not Cpu.Terminated do begin
+      Lock.Acquire;
+      while (Length(InputBuffer) = 0) and not Cpu.Terminated do begin
+        Lock.Release;
         Sleep(100);
+        Lock.Acquire;
       end;
-      if Length(KeyInputBuffer) > 0 then begin
-        Result.B := Ord(KeyInputBuffer[0]);
-        if Length(KeyInputBuffer) > 1 then
-          Move(KeyInputBuffer[1], KeyInputBuffer[0], Length(KeyInputBuffer) - 1);
-        SetLength(KeyInputBuffer, Length(KeyInputBuffer) - 1);
+      if Length(InputBuffer) > 0 then begin
+        Result.B := Ord(InputBuffer[1]);
+        Delete(InputBuffer, 1, 1);
       end else Result.B := 0;
+      Lock.Release;
     end;
   end;
@@ -202 +213 @@
 begin
   case Port of
-    0: Memo1.Lines.Text := Memo1.Lines.Text + Char(Value.B);
+    0: begin
+      Lock.Acquire;
+      OutputBuffer := OutputBuffer + Char(Value.B);
+      Lock.Release;
+    end;
   end;
 end;

@@ -1 +1 @@
 lib
 virtucpu4.exe
+virtucpu4
 *.lps
 *.res