Changeset 161 for MicroThreading/Demo/UMainForm.pas

Timestamp:

Feb 7, 2011, 7:04:23 AM (14 years ago)

Author:

george

Message:

• Added: Microthread context switching need to change exception stack as well. This need patch thread unit witch is part of system unit to make exception stack thread vars accesible.

File:

• MicroThreading/Demo/UMainForm.pas (modified) (2 diffs)

MicroThreading/Demo/UMainForm.pas

@@ -369 +369 @@
 begin
   for I := 0 to MainForm.Iterations - 1 do begin
+    try
     Q := 0;
     while Q < 100 do Inc(Q);
@@ -381 +382 @@
     Completion := I / MainForm.Iterations;
     Yield;
+
+    except
+      Q := 0;
+      raise  Exception.Create('Exception from microthread');
+    end;
   end;
 end;