paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 15:39:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed to reflect last tconvtype change

Browse Source
This commit is contained in:
florian 2002-10-10 16:14:54 +00:00
parent 28a044c57c
commit 2f510f8f2f
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/i386/n386cnv.pas
View File

@ -322,7 +322,7 @@ implementation
procedure ti386typeconvnode.second_call_helper(c : tconverttype);
{$ifdef fpc}
{$ifdef fpc}
const
secondconvert : array[tconverttype] of pointer = (
{$ifdef fpc}@{$endif}second_nothing, {equal}
@ -353,7 +353,8 @@ implementation
{$ifdef fpc}@{$endif}second_class_to_intf,
{$ifdef fpc}@{$endif}second_char_to_char,
{$ifdef fpc}@{$endif}second_nothing, { normal_2_smallset }
{$ifdef fpc}@{$endif}second_nothing { dynarray_2_openarray }
{$ifdef fpc}@{$endif}second_nothing, { dynarray_2_openarray }
{$ifdef fpc}@{$endif}second_nothing { pwchar_2_string }
);
type
tprocedureofobject = procedure of object;
@ -373,7 +374,7 @@ implementation
end;
{$else}
begin
case c of
case c of
tc_equal,
tc_not_possible,
tc_string_2_string : second_nothing;
@ -412,7 +413,10 @@ begin
end.
{
$Log$
Revision 1.50 2002-10-05 12:43:29 carl
Revision 1.51 2002-10-10 16:14:54 florian
* fixed to reflect last tconvtype change
Revision 1.50 2002/10/05 12:43:29 carl
* fixes for Delphi 6 compilation
(warning : Some features do not work under Delphi)