[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