paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:29:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compilation errors

Browse Source 
git-svn-id: trunk@2815 -
This commit is contained in:
Jonas Maebe 2006-03-09 09:13:42 +00:00
parent 123951865c
commit cb94ba5457
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/darwin/i386/sig_cpu.inc
View File

@ -76,11 +76,13 @@
} }
{ THREAD_STATE_FLAVOR_LIST 0 } { THREAD_STATE_FLAVOR_LIST 0 }
{
const const
i386_THREAD_STATE = 1; i386_THREAD_STATE = 1;
i386_FLOAT_STATE = 2; i386_FLOAT_STATE = 2;
i386_EXCEPTION_STATE = 3; i386_EXCEPTION_STATE = 3;
THREAD_STATE_NONE = 4; THREAD_STATE_NONE = 4;
}
{ {
* Main thread state consists of * Main thread state consists of
* general registers, segment registers, * general registers, segment registers,
@ -106,7 +108,7 @@
fs : cuint; fs : cuint;
gs : cuint; gs : cuint;
end; end;
i386_thread_state_t = i386_thread_state;
{ {
* Default segment register values. * Default segment register values.
} }

2
rtl/darwin/i386/sighnd.inc
View File

@ -50,7 +50,7 @@ begin
{$endif } {$endif }
if (res <> 0) then if (res <> 0) then
HandleErrorAddrFrame(res,pointer(sigcontext^.ts.eip),pointer(sigcontext^.ts.ebp); HandleErrorAddrFrame(res,pointer(sigcontext.ts.eip),pointer(sigcontext.ts.ebp));
(* (*
{ return to trampoline } { return to trampoline }
if res <> 0 then if res <> 0 then