|
@@ -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
|
|
|
|
|
- bgt @st1nosweat
|
|
|
|
|
- move.l #202,d0
|
|
|
|
|
- jsr HALT_ERROR
|
|
|
|
|
|
|
+ sub.l #2048,d1
|
|
|
|
|
+ cmp.l __BREAK,d1
|
|
|
|
|
+ bgt @st1nosweat
|
|
|
|
|
+ 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
|
|
|
|
|
- + paramstr and paramcount implemented
|
|
|
|
|
|
|
+ Revision 1.8 1998-07-15 12:11:59 carl
|
|
|
|
|
+ * 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
|
carl