Оберон-клуб «ВЄДАsoft»

;hi.c:16: export main(int argc, char **argv)
;    ---------------------------------
; Function main
; ---------------------------------
_main_start::
_main:
;hi.c:20: __IMPORT(five);
    call    _five__init

MODULE five;IMPORT B := Basic,SYSTEM,tw:=two,th:=three,fo:=four,si:=six;
VAR
BEGIN (*sdgfk*)B.PRSTR("FIVE-");END five.

#define Basic__init()

#define Basic__init()  Basic_Init()

 
MODULE hi;
IMPORT B := Basic,SYSTEM,tw:=two,th:=three,fo:=four,fi:=five,si:=six;
CONST 
wall=2;
floor=3;
BEGIN (*$MAIN*)
  B.Init; B.BORDER(B.Blue);
  B.PAPER(B.White);
  B.INK(B.Black);
B.PRSTR("IRST-");
 
	B.PAUSE(B.WaitAKey);
	B.Quit;
 
 
 
END hi.
 

MODULE four;IMPORT B := Basic,SYSTEM,tw:=two,th:=three,si:=six;
VAR
BEGIN (*sdgfk*)B.PRSTR("FOUR-");END four.

MODULE six;IMPORT B := Basic,SYSTEM,tw:=two,th:=three,fo:=four;VAR
BEGIN (*sdgfk*)B.PRSTR("SIX");END six.

four__init: CALL six__init
six__init: CALL four__init

#  define __DEFMOD	static  char m; if(m!=0)return
#  define __REGMOD(name, enum)	m=1

export void *two__init(void)
{
	__DEFMOD;			// static  char m; if(m!=0)return;
	__IMPORT(Basic__init);
	__REGMOD("two", 0);		// m=1;
	...
}

export void *two__init(void)
{
	__DEFMOD; // SDCC says at this line: two.c:13: warning 110: conditional flow changed by optimizer: so said EVELYN the modified DOG
	__IMPORT(Basic__init);
	__REGMOD("two", 0);
	...
}

;	---------------------------------
; Function two__init
; ---------------------------------
_two__init_start::
_two__init:
;two.c:15: __REGMOD("two", 0);
	ld	hl,#_two__init_m_1_61 + 0
	ld	(hl), #0x01

static  char m; if(m!=0)return;