|
@@ -208,15 +208,17 @@ const calculated_cmdline:Pchar=nil;
|
|
|
{*****************************************************************************
|
|
|
Misc. System Dependent Functions
|
|
|
*****************************************************************************}
|
|
|
-{$ifndef FPC_SYSTEM_HAS_STACKTOP}
|
|
|
var
|
|
|
_stack_top: record end; external name '_stack_top';
|
|
|
|
|
|
+{ Interim fix for now, set to large address
|
|
|
+ TODO: provide more realistic value, possibly by inspecting stack pointer
|
|
|
+ when main or task is started
|
|
|
+}
|
|
|
function StackTop: pointer;
|
|
|
-begin
|
|
|
- StackTop:=@_stack_top;
|
|
|
-end;
|
|
|
-{$endif FPC_SYSTEM_HAS_STACKTOP}
|
|
|
+ begin
|
|
|
+ StackTop:=pointer($3fffffff);
|
|
|
+ end;
|
|
|
|
|
|
|
|
|
procedure haltproc;cdecl;external name '_haltproc';
|