equal
deleted
inserted
replaced
22 |
22 |
23 Process comment:' |
23 Process comment:' |
24 COPYRIGHT (c) 1992 by Claus Gittinger |
24 COPYRIGHT (c) 1992 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
26 |
26 |
27 $Header: /cvs/stx/stx/libbasic/Process.st,v 1.19 1995-02-02 12:25:39 claus Exp $ |
27 $Header: /cvs/stx/stx/libbasic/Process.st,v 1.20 1995-02-15 10:24:43 claus Exp $ |
28 '! |
28 '! |
29 |
29 |
30 !Process class methodsFor:'documentation'! |
30 !Process class methodsFor:'documentation'! |
31 |
31 |
32 copyright |
32 copyright |
43 " |
43 " |
44 ! |
44 ! |
45 |
45 |
46 version |
46 version |
47 " |
47 " |
48 $Header: /cvs/stx/stx/libbasic/Process.st,v 1.19 1995-02-02 12:25:39 claus Exp $ |
48 $Header: /cvs/stx/stx/libbasic/Process.st,v 1.20 1995-02-15 10:24:43 claus Exp $ |
49 " |
49 " |
50 ! |
50 ! |
51 |
51 |
52 documentation |
52 documentation |
53 " |
53 " |
370 |
370 |
371 %{ /* NOCONTEXT */ |
371 %{ /* NOCONTEXT */ |
372 extern OBJ __threadContext(); |
372 extern OBJ __threadContext(); |
373 OBJ i; |
373 OBJ i; |
374 |
374 |
375 if (_isSmallInteger(i = _INST(id))) { |
375 if (__isSmallInteger(i = _INST(id))) { |
376 RETURN (__threadContext(_intVal(i))); |
376 RETURN (__threadContext(_intVal(i))); |
377 } |
377 } |
378 %}. |
378 %}. |
379 ^ nil |
379 ^ nil |
380 ! |
380 ! |
386 |
386 |
387 %{ /* NOCONTEXT */ |
387 %{ /* NOCONTEXT */ |
388 extern int __threadMaxStackSize(); |
388 extern int __threadMaxStackSize(); |
389 OBJ i; |
389 OBJ i; |
390 |
390 |
391 if (_isSmallInteger(i = _INST(id))) { |
391 if (__isSmallInteger(i = _INST(id))) { |
392 RETURN( _MKSMALLINT(__threadMaxStackSize(_intVal(i))) ); |
392 RETURN( _MKSMALLINT(__threadMaxStackSize(_intVal(i))) ); |
393 } |
393 } |
394 %}. |
394 %}. |
395 ^ nil |
395 ^ nil |
396 ! |
396 ! |
403 |
403 |
404 %{ /* NOCONTEXT */ |
404 %{ /* NOCONTEXT */ |
405 extern int __threadSetMaxStackSize(); |
405 extern int __threadSetMaxStackSize(); |
406 OBJ i; |
406 OBJ i; |
407 |
407 |
408 if (_isSmallInteger(i = _INST(id)) |
408 if (__isSmallInteger(i = _INST(id)) |
409 && _isSmallInteger(limit) ) { |
409 && __isSmallInteger(limit) ) { |
410 RETURN ( _MKSMALLINT(__threadSetMaxStackSize(_intVal(i), _intVal(limit))) ); |
410 RETURN ( _MKSMALLINT(__threadSetMaxStackSize(_intVal(i), _intVal(limit))) ); |
411 } |
411 } |
412 %}. |
412 %}. |
413 ^ nil |
413 ^ nil |
414 ! ! |
414 ! ! |
421 |
421 |
422 %{ /* NOCONTEXT */ |
422 %{ /* NOCONTEXT */ |
423 extern int __threadUsedStackSize(); |
423 extern int __threadUsedStackSize(); |
424 OBJ i; |
424 OBJ i; |
425 |
425 |
426 if (_isSmallInteger(i = _INST(id))) { |
426 if (__isSmallInteger(i = _INST(id))) { |
427 RETURN( _MKSMALLINT(__threadUsedStackSize(_intVal(i))) ); |
427 RETURN( _MKSMALLINT(__threadUsedStackSize(_intVal(i))) ); |
428 } |
428 } |
429 %}. |
429 %}. |
430 ^ nil |
430 ^ nil |
431 ! |
431 ! |
436 |
436 |
437 %{ /* NOCONTEXT */ |
437 %{ /* NOCONTEXT */ |
438 extern int __threadTotalStackSize(); |
438 extern int __threadTotalStackSize(); |
439 OBJ i; |
439 OBJ i; |
440 |
440 |
441 if (_isSmallInteger(i = _INST(id))) { |
441 if (__isSmallInteger(i = _INST(id))) { |
442 RETURN( _MKSMALLINT(__threadTotalStackSize(_intVal(i))) ); |
442 RETURN( _MKSMALLINT(__threadTotalStackSize(_intVal(i))) ); |
443 } |
443 } |
444 %}. |
444 %}. |
445 ^ nil |
445 ^ nil |
446 ! |
446 ! |
451 |
451 |
452 %{ /* NOCONTEXT */ |
452 %{ /* NOCONTEXT */ |
453 extern int __threadTotalStackSize(); |
453 extern int __threadTotalStackSize(); |
454 OBJ i; |
454 OBJ i; |
455 |
455 |
456 if (_isSmallInteger(i = _INST(id))) { |
456 if (__isSmallInteger(i = _INST(id))) { |
457 RETURN( _MKSMALLINT(__threadStackSegments(_intVal(i))) ); |
457 RETURN( _MKSMALLINT(__threadStackSegments(_intVal(i))) ); |
458 } |
458 } |
459 %}. |
459 %}. |
460 ^ nil |
460 ^ nil |
461 ! ! |
461 ! ! |