paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:19:25 +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 }
{
const
i386_THREAD_STATE = 1;
i386_FLOAT_STATE = 2;
i386_EXCEPTION_STATE = 3;
THREAD_STATE_NONE = 4;
}
{
* Main thread state consists of
* general registers, segment registers,
@ -106,7 +108,7 @@
fs : cuint;
gs : cuint;
end;
i386_thread_state_t = i386_thread_state;
{
* Default segment register values.
}

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

@ -50,7 +50,7 @@ begin
{$endif }
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 }
if res <> 0 then