paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-28 18:21:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* hmmm... can't remember! :(...

Browse Source
This commit is contained in:
carl 1998-07-15 12:11:59 +00:00
parent a42e3653dc
commit 919a4ee1bb
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/atari/sysatari.pas
View File

@ -55,8 +55,6 @@ const
var var
errno : integer; errno : integer;
type
plongint = ^longint;
{$S-} {$S-}
procedure Stack_Check; assembler; procedure Stack_Check; assembler;
@ -66,10 +64,11 @@ const
XDEF STACKCHECK XDEF STACKCHECK
move.l sp,d1 { get value of stack pointer } move.l sp,d1 { get value of stack pointer }
sub.l d0,d1 { sp - stack_size } sub.l d0,d1 { sp - stack_size }
cmp.l __BREAK,d1 sub.l #2048,d1
bgt @st1nosweat cmp.l __BREAK,d1
move.l #202,d0 bgt @st1nosweat
jsr HALT_ERROR move.l #202,d0
jsr HALT_ERROR
@st1nosweat: @st1nosweat:
end; end;
@ -210,6 +209,10 @@ const
else paramstr:=''; else paramstr:='';
end; end;
function paramcount : longint;
Begin
paramcount := argc;
end;
@ -716,8 +719,8 @@ end.
{ {
$Log$ $Log$
Revision 1.7 1998-07-14 12:12:05 carl Revision 1.8 1998-07-15 12:11:59 carl
+ paramstr and paramcount implemented * hmmm... can't remember! :(...
Revision 1.5 1998/07/13 12:34:13 carl Revision 1.5 1998/07/13 12:34:13 carl
+ Error2InoutRes implemented + Error2InoutRes implemented