source: MicroThreading/Patch/FPC 2.5.3.patch

rtl/inc/except.inc

@@ -26 +26 @@
   cFinalizeFrame  = 2;
 
 Type
-  PExceptAddr = ^TExceptAddr;
-  TExceptAddr = record
-    buf       : pjmp_buf;
-    next      : PExceptAddr;
-    frametype : Longint;
-  end;
 
   TExceptObjectClass = Class of TObject;
 
@@ -48 +42 @@
 end;
 
 
+// Used for microthreading context switching
+
+Function GetExceptionAddrStack : PExceptAddr;
+begin
+  Result := ExceptAddrStack;
+end;
+
+Function GetExceptionObjectStack : PExceptObject;
+begin
+  Result := ExceptObjectStack;
+end;
+
+procedure SetExceptionAddrStack(Value : PExceptAddr);
+begin
+  ExceptAddrStack := Value;
+end;
+
+procedure SetExceptionObjectStack(Value : PExceptObject);
+begin
+  ExceptObjectStack := Value;
+end;
+
+
 function AcquireExceptionObject: Pointer;
 var
   _ExceptObjectStack : PExceptObject;

rtl/inc/objpash.inc

@@ -333 +333 @@
          Framecount : Longint;
          Frames     : PPointer;
        end;
+       
+       PExceptAddr = ^TExceptAddr;
+       TExceptAddr = record
+         buf       : pjmp_buf;
+         next      : PExceptAddr;
+         frametype : Longint;
+       end;
 
     Const
        ExceptProc : TExceptProc = Nil;
@@ -341 +348 @@
 
     Function RaiseList : PExceptObject;
 
+    // Used for microthreading context switching
+    Function GetExceptionAddrStack : PExceptAddr;
+    Function GetExceptionObjectStack : PExceptObject;
+    procedure SetExceptionAddrStack(Value : PExceptAddr);
+    procedure SetExceptionObjectStack(Value : PExceptObject);
+
     { @abstract(increase exception reference count)
       When leaving an except block, the exception object is normally
       freed automatically. To avoid this, call this function.