git-svn-id: https://spexeah.com:8443/svn/Asuro@1441 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/isr/isr_types.pas

@@ -12,6 +12,33 @@ const
     MAX_HOOKS = 16;
 
 type
+    TInterruptRegisters = packed record
+        EBP    : uint32;
+        EAX    : uint32;
+        EBX    : uint32;
+        ECX    : uint32;
+        EDX    : uint32;
+        ESI    : uint32;
+        EDI    : uint32;
+        DS     : uint32;
+        ES     : uint32;
+        FS     : uint32;
+        GS     : uint32;
+    end;
+    PInterruptRegisters = ^TInterruptRegisters;
+    
+    TError = packed record
+        Error : uint32;
+    end;
+    PError = ^TError;
+
+    TInterruptSpecialRegisters = packed record
+        EIP    : uint32;
+        CS     : uint32;
+        EFLAGS : uint32;
+    end;
+    PInterruptSpecialRegisters = ^TInterruptSpecialRegisters;
+
     PRegisters = ^TRegisters;
     TRegisters = record
         edi,esi,ebp,esp,ebx,edx,ecx,eax: uint32;
@@ -22,6 +49,27 @@ type
     pp_hook_method = procedure(data : void);
     pp_void = pp_hook_method;
 
+var
+    IntReg    : PInterruptRegisters = nil;
+    IntSpec   : PInterruptSpecialRegisters = nil;
+    IntErr    : PError = nil;
+    ZeroError : uint32 = 0;
+
+procedure correctInterruptRegisters(Errorcode : boolean);
+
 implementation
 
+procedure correctInterruptRegisters(Errorcode : boolean);
+begin
+    if IntReg <> nil then begin
+        If errorcode then begin
+            IntSpec:= PInterruptSpecialRegisters(uint32(IntReg) + uint32(SizeOf(TInterruptRegisters)) + uint32(Sizeof(TError)));
+            IntErr:= PError(uint32(IntReg) + uint32(sizeof(TInterruptRegisters)));
+        end else begin
+            IntSpec:= PInterruptSpecialRegisters(uint32(IntReg) + uint32(SizeOf(TInterruptRegisters)));
+            IntErr:= PError(@ZeroError);
+        end;
+    end;
+end;
+
 end.