Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: 90744753b9
Branches Tags
freepascal.comp...
/
packages
/
base
/
libc
/
suserh.inc

suserh.inc 2.1 KB
History Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687 
  1. 

  2. type
    3. 

  3.    Puser_fpregs_struct = ^user_fpregs_struct;
    4. 

  4.    user_fpregs_struct = record
    5. 

  5.         cwd : longint;
    6. 

  6.         swd : longint;
    7. 

  7.         twd : longint;
    8. 

  8.         fip : longint;
    9. 

  9.         fcs : longint;
    10. 

  10.         foo : longint;
    11. 

  11.         fos : longint;
    12. 

  12.         st_space : array[0..19] of longint;
    13. 

  13.      end;
    14. 

  14. 

  15.    Puser_fpxregs_struct = ^user_fpxregs_struct;
    16. 

  16.    user_fpxregs_struct = record
    17. 

  17.         cwd : word;
    18. 

  18.         swd : word;
    19. 

  19.         twd : word;
    20. 

  20.         fop : word;
    21. 

  21.         fip : longint;
    22. 

  22.         fcs : longint;
    23. 

  23.         foo : longint;
    24. 

  24.         fos : longint;
    25. 

  25.         mxcsr : longint;
    26. 

  26.         reserved : longint;
    27. 

  27.         st_space : array[0..31] of longint;
    28. 

  28.         xmm_space : array[0..31] of longint;
    29. 

  29.         padding : array[0..55] of longint;
    30. 

  30.      end;
    31. 

  31. 

  32.    Puser_regs_struct = ^user_regs_struct;
    33. 

  33.    user_regs_struct = record
    34. 

  34.         ebx : longint;
    35. 

  35.         ecx : longint;
    36. 

  36.         edx : longint;
    37. 

  37.         esi : longint;
    38. 

  38.         edi : longint;
    39. 

  39.         ebp : longint;
    40. 

  40.         eax : longint;
    41. 

  41.         xds : longint;
    42. 

  42.         xes : longint;
    43. 

  43.         xfs : longint;
    44. 

  44.         xgs : longint;
    45. 

  45.         orig_eax : longint;
    46. 

  46.         eip : longint;
    47. 

  47.         xcs : longint;
    48. 

  48.         eflags : longint;
    49. 

  49.         esp : longint;
    50. 

  50.         xss : longint;
    51. 

  51.      end;
    52. 

  52. 

  53.    Puser = ^user;
    54. 

  54.    user = record
    55. 

  55.         regs : user_regs_struct;
    56. 

  56.         u_fpvalid : longint;
    57. 

  57.         i387 : user_fpregs_struct;
    58. 

  58.         u_tsize : dword;
    59. 

  59.         u_dsize : dword;
    60. 

  60.         u_ssize : dword;
    61. 

  61.         start_code : dword;
    62. 

  62.         start_stack : dword;
    63. 

  63.         signal : longint;
    64. 

  64.         reserved : longint;
    65. 

  65.         u_ar0 : Puser_regs_struct;
    66. 

  66.         u_fpstate : Puser_fpregs_struct;
    67. 

  67.         magic : dword;
    68. 

  68.         u_comm : array[0..31] of char;
    69. 

  69.         u_debugreg : array[0..7] of longint;
    70. 

  70.      end;
    71. 

  71. 

  72. 

  73. const
    74. 

  74.    PAGE_SHIFT = 12;
    75. 

  75.    PAGE_SIZE = 1 shl PAGE_SHIFT;
    76. 

  76.    PAGE_MASK =  not (PAGE_SIZE - 1);
    77. 

  77.    NBPG = PAGE_SIZE;
    78. 

  78.    UPAGES = 1;
    79. 

  79.    HOST_TEXT_START_ADDR = u.start_code;
    80. 

  80.    HOST_STACK_END_ADDR = (u.start_stack) + ((u.u_ssize) * NBPG);
    81. 

  81. 

  82. 

  83. { ---------------------------------------------------------------------
    84. 

  84.     Borland compatibility types
    85. 

  85.   ---------------------------------------------------------------------}
    86. 

  86. 

  87. // Type
    88.