[lazarus] speedtest fixed

Peter Vreman pfv at cooldown.demon.nl
Mon Jan 8 17:26:43 EST 2001



The speedtest bug has been fixed. You'll need the current fixes branch for
it. 

The compiler has been fixed to not allow passing a string to 'array of 
char'. And the passing of a constant array to cdecl;external; has been
fixed to not push the high value.

The GTK declaration was also wrong 'array of char' instead of 'array of
int8'.


Below is the patch for gtkproc.inc:

*** /home/pfv/cvs/projects/lazarus/lcl/interfaces/gtk/gtkproc.inc	Tue Dec 19 22:40:46 2000
--- gtkproc.inc	Mon Jan  8 22:21:27 2001
***************
*** 131,141 ****
      else begin
        gdk_gc_set_line_attributes(GC, GDIPenWidth, GDK_LINE_ON_OFF_DASH, 0, 0);
        case GDIPenStyle of
!         PS_DASH:       gdk_gc_set_dashes(GC, 0, #4#4, 2);
!       	PS_DOT:        gdk_gc_set_dashes(GC, 0, #2#2, 2);
!       	PS_DASHDOT:    gdk_gc_set_dashes(GC, 0, #4#2#2#2+#0, 4);
!       	PS_DASHDOTDOT: gdk_gc_set_dashes(GC, 0, #4#2#2#2#2#2, 6);
!       	PS_NULL:       gdk_gc_set_dashes(GC, 0, #0#4, 2);
        end;	
      end;
    end;
--- 131,141 ----
      else begin
        gdk_gc_set_line_attributes(GC, GDIPenWidth, GDK_LINE_ON_OFF_DASH, 0, 0);
        case GDIPenStyle of
!         PS_DASH:       gdk_gc_set_dashes(GC, 0, [4,4], 2);
!       	PS_DOT:        gdk_gc_set_dashes(GC, 0, [2,2], 2);
!       	PS_DASHDOT:    gdk_gc_set_dashes(GC, 0, [4,2,2,2,0], 4);
!       	PS_DASHDOTDOT: gdk_gc_set_dashes(GC, 0, [4,2,2,2,2,2], 6);
!       	PS_NULL:       gdk_gc_set_dashes(GC, 0, [0,4], 2);
        end;	
      end;
    end;






More information about the Lazarus mailing list