Changeset 8 for trunk/UBrainFuck.pas

Timestamp:

Feb 9, 2012, 3:48:16 PM (13 years ago)

Author:

chronos

Message:

• Modified: Some optimalization of interpretter.

File:

• trunk/UBrainFuck.pas (modified) (5 diffs)

trunk/UBrainFuck.pas

@@ -76 +76 @@
 begin
   repeat
-    while Parent.SourcePosition < Length(Parent.Source) do begin
+    while (Parent.SourcePosition < Length(Parent.Source)) and (Parent.State <> rsStopped) do begin
       Parent.SingleStep;
       while Parent.State = rsPaused do begin
@@ -83 +83 @@
     end;
     Parent.SetState(rsStopped);
-  until Terminated;
+  until Terminated or (Parent.State = rsStopped);
 end;
 
@@ -101 +101 @@
 
 function TBrainFuckInterpretter.Read: Byte;
-var
-  Character: string;
 begin
   while InputPosition >= Length(Input) do begin
     Sleep(1);
-    Application.ProcessMessages;
-  end;
-  Character := Copy(Input, InputPosition, 1);
-  Result := Ord(Character[1]);
+  end;
+  Result := Ord(Input[InputPosition + 1]);
   Inc(InputPosition);
 end;
 
 function TBrainFuckInterpretter.ReadCode: Char;
-var
-  Code: string;
-begin
-  Code := Copy(Source, SourcePosition + 1, 1);
-  Result := Code[1];
+begin
+  Result := Source[SourcePosition + 1]
 end;
 
@@ -156 +149 @@
 begin
   case ReadCode of
-    '>': Inc(MemoryPosition);
+    '>': if MemoryPosition < Length(Memory) then Inc(MemoryPosition)
+      else raise Exception.Create(SProgramUpperLimit);
     '<': if MemoryPosition > 0 then Dec(MemoryPosition)
       else raise Exception.Create(SProgramLowerLimit);
@@ -199 +193 @@
   SetState(rsRunning);
   Reset;
+  SetThread(False);
   SetThread(True);
 end;