haiku: properly pass on the exitcode to the haltproc on x86_64

git-svn-id: trunk@40760 -

rtl/haiku/system.pp

@@ -34,6 +34,7 @@ function disable_debugger(state : integer): integer; cdecl; external 'root' name
 {*****************************************************************************
                          System Dependent Exit code
 *****************************************************************************}
+{$ifdef i386}
 procedure prthaltproc;external name '_haltproc';
 
 procedure system_exit;
@@ -42,6 +43,14 @@ begin
     jmp prthaltproc
   end;
 End;
+{$else i386}
+procedure haltproc(exitcode: longint); cdecl; external name '_haltproc';
+
+procedure system_exit;
+begin
+  haltproc(ExitCode);
+end;
+{$endif i386}
 
 
 { OS dependant parts  }