Changeset 8

Timestamp:

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

Author:

chronos

Message:

• Modified: Some optimalization of interpretter.

Location:

trunk

Files:

• LazFuckIDE.lpi (modified) (1 diff)
• LazFuckIDE.lpr (modified) (1 diff)
• UBrainFuck.pas (modified) (5 diffs)
• UInterpreterForm.lfm (modified) (2 diffs)

trunk/LazFuckIDE.lpi

@@ -7 +7 @@
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <Title Value="project1"/>
+      <Title Value="LazFuck"/>
       <ResourceType Value="res"/>
       <UseXPManifest Value="True"/>

trunk/LazFuckIDE.lpr

@@ -14 +14 @@
 
 begin
+  Application.Title:='LazFuck';
   RequireDerivedFormResource := True;
   Application.Initialize;

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;

trunk/UInterpreterForm.lfm

@@ -34 +34 @@
         Width = 309
         Anchors = [akTop, akLeft, akRight, akBottom]
+        Font.Name = 'Courier New'
         OnKeyPress = MemoInputKeyPress
+        ParentFont = False
         ScrollBars = ssAutoBoth
         TabOrder = 0
@@ -80 +82 @@
         Width = 309
         Anchors = [akTop, akLeft, akRight, akBottom]
+        Font.Name = 'Courier New'
+        ParentFont = False
         ScrollBars = ssAutoBoth
         TabOrder = 0