WebSVN – Kolibri OS – Diff – /programs/develop/libraries/TinyGL/asm_fork/list.asm

 	mov eax,[eax+offs_cont_shared_state]
 	mov ebx,[list]
 	shl ebx,2
 	add eax,ebx
 	mov eax,[eax]
+if DEBUG ;find_list
+push edi
+	mov ecx,80
+	lea edi,[buf_param]
+	stdcall convert_int_to_str,ecx
+	stdcall str_n_cat,edi,txt_nl,2
+	stdcall dbg_print,f_find_l,buf_param
+pop edi
+end if
 	ret
 endp
-;static void delete_list(GLContext *c,int list)
-;{
+align 4
-;  GLParamBuffer *pb,*pb1;
+proc delete_list uses eax ebx ecx edx, context:dword, list:dword
-;  GLList *l;
+	mov ebx,[context]
+	stdcall find_list,ebx,[list]
-;  l=find_list(c,list);
+	mov edx,eax
 ;  assert(l != NULL);
-;  /* free param buffer */
-;  pb=l->first_op_buffer;
-;  while (pb!=NULL) {
-;    pb1=pb->next;
-;    gl_free(pb);
+	; free param buffer
-;    pb=pb1;
+	mov eax,[edx] ;eax = GLList.first_op_buffer
-;  }
+	@@:
+	cmp eax,0
-;  gl_free(l);
-;  c->shared_state.lists[list]=NULL;
-;}
+	je .end_w
-;static GLList *alloc_list(GLContext *c,int list)
+		mov ecx,[eax+offs_gpbu_next]
-;{
+		stdcall gl_free,eax
-;  GLList *l;
+		mov eax,ecx
-;  GLParamBuffer *ob;
+		jmp @b
-;  l=gl_zalloc(sizeof(GLList));
+	.end_w:
+	stdcall gl_free,edx
+	mov ecx,[list]
-;  ob=gl_zalloc(sizeof(GLParamBuffer));
+	shl ecx,2
+	mov ebx,[ebx+offs_cont_shared_state] ;ebx = &context.shared_state.lists
+	add ebx,ecx
+	mov dword[ebx],0 ;=NULL
+	ret
+endp
+align 4
+proc alloc_list uses ebx ecx, context:dword, list:dword
+	stdcall gl_zalloc,sizeof.GLParamBuffer
+	mov ecx,eax
+	stdcall gl_zalloc,sizeof.GLList
+	mov dword[ecx+offs_gpbu_next],0 ;ob.next=NULL
+	mov dword[eax],ecx ;l.first_op_buffer=ob
+	mov dword[ecx+offs_gpbu_ops],OP_EndList ;ob.ops[0].op=OP_EndList
+	mov ebx,[context]
+	mov ebx,[ebx+offs_cont_shared_state]
+	mov ecx,[list]
+	shl ecx,2
+	add ebx,ecx
+	mov [ebx],eax ;context.shared_state.lists[list]=l
+if DEBUG ;alloc_list
-;  ob->next=NULL;
+push edi
+	mov ecx,80
+	lea edi,[buf_param]
+	stdcall convert_int_to_str,ecx
-;  l->first_op_buffer=ob;
+	stdcall str_n_cat,edi,txt_nl,2
-;  ob->ops[0].op=OP_EndList;
+	stdcall dbg_print,f_alloc_l,buf_param
 pop edi
-;  c->shared_state.lists[list]=l;
+end if
-;  return l;
+	ret
 ;  }
 ;  fprintf(f,"\n");
 ;}
 align 4
+proc gl_compile_op, context:dword, p:dword
-proc gl_compile_op uses eax ebx, context:dword, p:dword
+pushad
+	mov edx,[context]
-	mov eax,[context]
+	lea ebx,[op_table_size]
+	mov ecx,[p]
+	mov ecx,[ecx]
+	shl ecx,2
+	add ecx,ebx
+	mov ecx,[ecx] ;ecx = кол-во параметров в компилируемой функции
+	mov ebx,[edx+offs_cont_current_op_buffer_index]
+	mov eax,[edx+offs_cont_current_op_buffer]
-;  int op,op_size;
+	; we should be able to add a NextBuffer opcode
+	mov esi,ebx
+	add esi,ecx
+	cmp esi,(OP_BUFFER_MAX_SIZE-2)
+	jle @f
+		mov edi,eax
+		stdcall gl_zalloc,sizeof.GLParamBuffer
+		mov dword[eax+offs_gpbu_next],0 ;=NULL
+		mov dword[edi+offs_gpbu_next],eax
+		mov esi,ebx
-;  GLParamBuffer *ob,*ob1;
+		shl esi,2
+		add esi,edi
+		mov dword[esi+offs_gpbu_ops],OP_NextBuffer
-;  int index,i;
-;  op=p[0].op;
+		mov dword[esi+offs_gpbu_ops+4],eax
-;  op_size=op_table_size[op];
-;  index=c->current_op_buffer_index;
-;  ob=c->current_op_buffer;
-;  /* we should be able to add a NextBuffer opcode */
-;  if ((index + op_size) > (OP_BUFFER_MAX_SIZE-2)) {
-;    ob1=gl_zalloc(sizeof(GLParamBuffer));
-;    ob1->next=NULL;
-;    ob->next=ob1;
-;    ob->ops[index].op=OP_NextBuffer;
-;    ob->ops[index+1].p=(void *)ob1;
-;    c->current_op_buffer=ob1;
-;    ob=ob1;
+		mov dword[edx+offs_cont_current_op_buffer],eax
-;    index=0;
+		xor ebx,ebx
+	@@:
-;  }
+	mov esi,[p]
+	@@:
+		mov edi,ebx
+		shl edi,2
-;  for(i=0;i
+		add edi,eax
-;    ob->ops[index]=p[i];
+		movsd
+		inc ebx
-;    index++;
+	loop @b
-;  }
+	mov dword[edx+offs_cont_current_op_buffer_index],ebx
-;  c->current_op_buffer_index=index;
+popad
 	ret
 endp
 align 4
 proc gl_add_op uses eax ebx ecx, p:dword ;GLParam*
-if DEBUG
+if DEBUG ;gl_add_op
 push edi esi
 		shl ecx,2
 		lea ebx,[op_table_func]
 		add ecx,ebx
 		call dword[ecx] ;op_table_func[op](c,p)
 	@@:
+	call gl_get_context
 	cmp dword[eax+offs_cont_compile_flag],0
 	je @f
 		stdcall gl_compile_op,eax,[p]
 	@@:
 	cmp dword[eax+offs_cont_print_flag],0
 proc glopNextBuffer, context:dword, p:dword
 ;  assert(0);
 	ret
 endp
+align 4
-;void glopCallList(GLContext *c,GLParam *p)
-;{
+proc glopCallList uses eax ebx ecx edx edi, context:dword, p:dword
-;  GLList *l;
+	mov edx,[context]
-;  int list,op;
+	mov ebx,[p]
+	stdcall find_list,edx,[ebx+4]
-;  list=p[1].ui;
+	cmp eax,0
+	jne @f
-;  l=find_list(c,list);
+		;if (eax == NULL) gl_fatal_error("list %d not defined",[ebx+4])
+	@@:
-;  if (l == NULL) gl_fatal_error("list %d not defined",list);
+	mov edi,[eax] ;edi = &GLList.first_op_buffer.ops
+align 4
-;  p=l->first_op_buffer->ops;
+	.cycle_0: ;while (1)
+if DEBUG ;glopCallList
+push ecx edi
+	mov eax,[edi]
+	mov ecx,80
+	lea edi,[buf_param]
+	stdcall convert_int_to_str,ecx
+	stdcall str_n_cat,edi,txt_nl,2
+	stdcall dbg_print,txt_op,buf_param
+pop edi ecx
+end if
-;  while (1) {
+	cmp dword[edi],OP_EndList
-;    op=p[0].op;
+	je .end_f ;if (op == OP_EndList) break
-;    if (op == OP_EndList) break;
+	cmp dword[edi],OP_NextBuffer
+	jne .els_0 ;if (op == OP_NextBuffer)
+		mov edi,[edi+4] ;p=p[1].p
+		jmp .cycle_0
-;    if (op == OP_NextBuffer) {
+	.els_0:
+		mov ecx,dword[edi] ;ecx = OP_...
+		shl ecx,2
+		lea ebx,[op_table_func]
+		add ecx,ebx
+		stdcall dword[ecx],edx,edi ;op_table_func[op](context,p)
-;      p=(GLParam *)p[1].p;
+		mov ecx,dword[edi] ;ecx = OP_...
+		shl ecx,2
+		lea ebx,[op_table_size]
+		add ecx,ebx
+		mov ecx,[ecx]
+		shl ecx,2
-;    } else {
+		add edi,ecx ;edi += op_table_size[op]
-;      op_table_func[op](c,p);
+	jmp .cycle_0
-;      p+=op_table_size[op];
+	.end_f:
+	ret
+endp
+align 4
-;    }
-;  }
-;}
-;void glNewList(unsigned int list,int mode)
-;{
+proc glNewList uses eax ebx, list:dword, mode:dword
-;  GLList *l;
+	call gl_get_context
-;  GLContext *c=gl_get_context();
-;
-;  assert(mode == GL_COMPILE || mode == GL_COMPILE_AND_EXECUTE);
-;  assert(c->compile_flag == 0);
-;
-;  l=find_list(c,list);
-;  if (l!=NULL) delete_list(c,list);
-;  l=alloc_list(c,list);
-;
-;  c->current_op_buffer=l->first_op_buffer;
-;  c->current_op_buffer_index=0;
-;
+	mov ebx,eax
-;  c->compile_flag=1;
+;  assert(mode == GL_COMPILE || mode == GL_COMPILE_AND_EXECUTE);
-;  c->exec_flag=(mode == GL_COMPILE_AND_EXECUTE);
+;  assert(ebx->compile_flag == 0);
-;}
+	stdcall find_list,ebx,[list]
+	cmp eax,0
+	je @f
+		stdcall delete_list,ebx,[list]
+	@@:
+	stdcall alloc_list,ebx,[list]
+	mov eax,[eax] ;eax = GLList.first_op_buffer
+	mov [ebx+offs_cont_current_op_buffer],eax
+	mov dword[ebx+offs_cont_current_op_buffer_index],0
+	mov dword[ebx+offs_cont_compile_flag],1
+	xor eax,eax
+	cmp dword[mode],GL_COMPILE_AND_EXECUTE
-;void glEndList(void)
+	jne @f
-;{
+		inc eax ;eax = (mode == GL_COMPILE_AND_EXECUTE)
+	@@:
+	mov [ebx+offs_cont_exec_flag],eax
+	ret
-;  GLContext *c=gl_get_context();
+endp
-;  GLParam p[1];
+align 4
+proc glEndList uses eax ebx
+locals
+	p dd ?
+endl
+	call gl_get_context
-;  assert(c->compile_flag == 1);
+;  assert(c->compile_flag == 1);
+	; end of list
+	mov dword[p],OP_EndList
+	mov ebx,ebp
+	sub ebx,4 ;=sizeof(dd)
+	stdcall gl_compile_op,eax,ebx
-;  /* end of list */
+	mov dword[eax+offs_cont_compile_flag],0
-;  p[0].op=OP_EndList;
+	mov dword[eax+offs_cont_exec_flag],1
-;  gl_compile_op(c,p);
+if DEBUG ;glEndList
 	stdcall find_list, eax,[list]
 	cmp eax,0 ;NULL
 	je @f
 		mov eax,1
 	@@:
+if DEBUG ;glIsList
+push edi
+	mov ecx,80
+	lea edi,[buf_param]
+	stdcall convert_int_to_str,ecx
+	stdcall str_n_cat,edi,txt_nl,2
+	stdcall dbg_print,f_is_l,buf_param
+pop edi
+end if
 	ret
 endp
-;unsigned int glGenLists(int range)
-;{
+align 4
-;  GLContext *c=gl_get_context();
+proc glGenLists uses ebx ecx edx edi esi, range:dword
-;  int count,i,list;
+	call gl_get_context
-;  GLList **lists;
+	mov edi,eax
-;  lists=c->shared_state.lists;
+	mov ebx,[eax+offs_cont_shared_state] ;ebx=context.shared_state.lists
+	xor edx,edx ;count=0
+	mov ecx,MAX_DISPLAY_LISTS
-;  count=0;
+	xor esi,esi
-;  for(i=0;i
+	.cycle_0: ;for(esi=0;esi
-;    if (lists[i]==NULL) {
+		cmp dword[ebx],0 ;if (ebx[i]==NULL)
+		je .els_0
-;      count++;
+			inc edx
+			cmp edx,[range] ;if (count == range)
+			jne .els_1
+			mov ecx,[range]
-;      if (count == range) {
+			inc esi
-;       list=i-range+1;
+			sub esi,ecx ;esi = (esi-range+1)
-;       for(i=0;i
+			.cycle_1: ;for(i=0;i
+				stdcall alloc_list,edi,esi
+				inc esi
+			loop .cycle_1
+			mov eax,esi
+			jmp .end_f
+		.els_0:
+			xor edx,edx ;count=0
+		.els_1:
-;         alloc_list(c,list+i);
+		add ebx,4
+		inc esi
+	loop .cycle_0
+	xor eax,eax
-;       }
+	.end_f:
-;       return list;
+if DEBUG ;glGenLists
-;      }
+push edi
-;    } else {
+	mov ecx,80
+	lea edi,[buf_param]
+	stdcall convert_int_to_str,ecx
+	stdcall str_n_cat,edi,txt_nl,2
-;      count=0;
+	stdcall dbg_print,f_gen_l,buf_param
-;    }
+pop edi
-;  }
+end if
-;  return 0;
+	ret

Subversion Repositories Kolibri OS

(root)/programs/develop/libraries/TinyGL/asm_fork/list.asm – Rev 5153 → 5171