ntLibInit.c
author Claus Gittinger <cg@exept.de>
Fri, 20 Jun 1997 12:06:27 +0200
changeset 543 de47f8969fd9
parent 517 d5baa136244e
permissions -rw-r--r--
more ST80 compatible enumeration
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
444
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
#ifndef OLDVMDATA
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
# define __INDIRECTVMINITCALLS__
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
#endif
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
#include <stc.h>
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
_libcomp_Init(pass, __pRT__, snd)
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
#ifdef OLDVMDATA
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
OBJ snd; struct __initTab__ *__pRT__; {
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
#else
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
OBJ snd; struct __vmData__ *__pRT__; {
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
#endif
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
 __BEGIN_PACKAGE__("libcomp", _libcomp_Init);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
_AssignmentNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
_ByteCodeCompiler_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
_BinaryNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
_BlockNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
_CascadeNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
_ConstantNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
_Explainer_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
_ImmutableArray_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
_LazyMethod_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
_MessageNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
_ObjectFileHandle_Init(pass,__pRT__,snd);
517
d5baa136244e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 444
diff changeset
    24
_ObjectFileLoader_Init(pass,__pRT__,snd);
444
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
_ParseNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
_Parser_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
_PrimitiveNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
_PrimaryNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
_ReturnNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
_Scanner_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
_SelfNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
_SourceFileLoader_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
_StatementNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
_SuperNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
_UnaryNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
_UndefinedVariable_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
_VariableNode_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
_Variable_Init(pass,__pRT__,snd);
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
 __END_PACKAGE__();
34a9dd310c28 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
}