X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpf_core.c;h=ceab2bee880ef19f637d602077b87ec1ad695be7;hb=07618dcb5a69971dde69b56cfda977d92de48525;hp=0329749eee69970fd22fced0a174c8afd59b696f;hpb=bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335;p=debian%2Fpforth diff --git a/csrc/pf_core.c b/csrc/pf_core.c index 0329749..ceab2be 100644 --- a/csrc/pf_core.c +++ b/csrc/pf_core.c @@ -444,7 +444,6 @@ int32 pfDoForth( const char *DicName, const char *SourceName, int32 IfInit ) pfInit(); - /* Allocate Task structure. */ pfDebugMessage("pfDoForth: call pfCreateTask()\n"); cftd = pfCreateTask( DEFAULT_USER_DEPTH, DEFAULT_RETURN_DEPTH );