HP3000-L Archives

August 2000, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Wilkinson, Mark" <[log in to unmask]>
Reply To:
Wilkinson, Mark
Date:
Wed, 23 Aug 2000 16:25:17 +0100
Content-Type:
text/plain
Parts/Attachments:
text/plain (49 lines)
Activate, when used like this assumes that the father process has suspended
itself at the time it activated the child, and needs to be woken up by the
child process.

Cheers.

Mark Wilkinson.

> -----Original Message-----
> From: Born, Ken [mailto:[log in to unmask]]
> Sent: 23 August 2000 16:24
> To: [log in to unmask]
> Subject: ACTIVATE Father Intrinsic
>
>
> What does this Intrinsic do?  I have seen this Intrinsic in my PASCAL
> programs.  I looked in the Intrinsic Manual and all it reads
> is that it
> "activates a newly created process".   Is this process
> mandatory in all
> PASCAL programs?  What new process did it create?
>
>     0  1064.000   0    PROCEDURE activate_father;
>     1  1065.000   0
>     1  1066.000   0      VAR
>     1  1067.000   0         pin : shortint;
>     2  1068.000   0
>     2  1069.000   0      FUNCTION  father : shortint;
>     3  1070.000   0        INTRINSIC;
>     3  1071.000   0
>     3  1072.000   0      PROCEDURE activate;
>     4  1073.000   0        INTRINSIC;
>     4  1074.000   0
>     4  1075.000   1      BEGIN
>     4  1076.000   1   {*   IF tracing_on THEN
>     4  1077.000   1          WRITELN('In activate_father');    *}
>     4  1078.000   1
>     4  1079.000   1        pin := father;
>     5  1080.000   1
>     5  1081.000   1        IF CCODE = 2
>     6  1082.000   1          THEN
>     6  1083.000   1              activate(0,0);
>     7  1084.000   1
>     7  1085.000   1      END;
>
> Any explanation would be appreciated.
> Thanks in advance.
>

ATOM RSS1 RSS2