paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 15:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

netbsd/powerpc: made it to build at least. resulting executables probably still crash & burn

Browse Source 
git-svn-id: trunk@36859 -
This commit is contained in:
Károly Balogh 2017-08-08 14:31:57 +00:00
parent d98065d706
commit 914ac30919
4 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -9587,6 +9587,7 @@ rtl/netbsd/m68k/sighnd.inc svneol=native#text/plain
rtl/netbsd/pmutext.inc svneol=native#text/plain
rtl/netbsd/powerpc/bsyscall.inc svneol=native#text/plain
rtl/netbsd/powerpc/cprt0.as svneol=native#text/plain
rtl/netbsd/powerpc/dllprt0.as svneol=native#text/plain
rtl/netbsd/powerpc/prt0.as svneol=native#text/plain
rtl/netbsd/powerpc/sighnd.inc svneol=native#text/plain
rtl/netbsd/pthread.inc svneol=native#text/plain

16
rtl/netbsd/powerpc/dllprt0.as Normal file
View File

@ -0,0 +1,16 @@
#
# This file is part of the Free Pascal run time library.
# Copyright (c) 2017 by Karoly Balogh
# member of the Free Pascal development team.
#
# See the file COPYING.FPC, included in this distribution,
# for details about the copyright.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY;without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
#**********************************************************************}
#
# FIX ME: dummy file, required for the build to pass, implement! (KB)

7
rtl/netbsd/powerpc/sighnd.inc
View File

@ -6,7 +6,7 @@
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
Signalhandler for FreeBSD/i386
Signalhandler for NetBSD/powerpc
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY;without even the implied warranty of
@ -20,7 +20,7 @@ begin
getfpustate:=0;
end;
procedure SignalToRunerror(signo: cint); public name '_FPC_DEFAULTSIGHANDLER'; cdecl;
procedure SignalToRunerror(Signo: longint;info : PSigInfo;SigContext: PSigContextRec); public name '_FPC_DEFAULTSIGHANDLER'; cdecl;
var
res : word;
begin
@ -48,6 +48,3 @@ begin
HandleError(res);
end;
end;

6
rtl/netbsd/signal.inc
View File

@ -293,6 +293,12 @@ enum { _FRAME_GREG(GREG_OFFSETS) _NGREG = 26 };
{$WARNING FIXME! SigContextRec}
end;
{$endif m68k}
{$ifdef CPUPOWERPC}
SigContextRec = record
sc_args : array[0..6] of clong;
{$WARNING FIXME! SigContextRec}
end;
{$endif powerpc}
SignalHandler = Procedure(Sig : Longint);cdecl;
PSignalHandler = ^SignalHandler;