Преглед изворни кода

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

git-svn-id: trunk@36859 -
Károly Balogh пре 8 година
родитељ
комит
914ac30919
4 измењених фајлова са 25 додато и 5 уклоњено
  1. 1 0
      .gitattributes
  2. 16 0
      rtl/netbsd/powerpc/dllprt0.as
  3. 2 5
      rtl/netbsd/powerpc/sighnd.inc
  4. 6 0
      rtl/netbsd/signal.inc

+ 1 - 0
.gitattributes

@@ -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 - 0
rtl/netbsd/powerpc/dllprt0.as

@@ -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)

+ 2 - 5
rtl/netbsd/powerpc/sighnd.inc

@@ -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 - 0
rtl/netbsd/signal.inc

@@ -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;