paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 20:29:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't prefer int const to pointer

Browse Source 
git-svn-id: trunk@700 -
This commit is contained in:
peter 2005-07-19 12:22:32 +00:00
parent 2d58a4d4d7
commit a24dc41f36
3 changed files with 35 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6147,6 +6147,7 @@ tests/webtbs/tw4162.pp svneol=native#text/plain
tests/webtbs/tw4173.pp svneol=native#text/plain
tests/webtbs/tw4188.pp svneol=native#text/plain
tests/webtbs/tw4199.pp svneol=native#text/plain
tests/webtbs/tw4201.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain
tests/webtbs/ub1883.pp svneol=native#text/plain
tests/webtbs/uw0555.pp svneol=native#text/plain

2
compiler/defcmp.pas
View File

@ -773,7 +773,7 @@ implementation
if (m_delphi in aktmodeswitches) and is_integer(def_from) then
begin
doconv:=tc_cord_2_pointer;
eq:=te_convert_l1;
eq:=te_convert_l2;
end;
end;
{ delphi compatible, allow explicit typecasts from

33
tests/webtbs/tw4201.pp Executable file
View File

@ -0,0 +1,33 @@
type
XTask = type Pointer;
XInt4 = Integer;
XID = type Longword;
XUniStr = type Pointer;
XResult = type Integer;
function XLogS(const Task: XTask; const Severity: XInt4; const Msg: XID; const Args:
array of const): XResult; overload;
begin
Result := 0;
end;
function XLogS(const Task: XTask; const Severity: XInt4; const Text: XUniStr):
XResult; overload;
begin
Result := 0;
end;
function XLogS(const Task: XTask; const Severity: XInt4; const FormatStr: XUniStr;
const Args: array of const): XResult; overload;
begin
Result := 0;
end;
const
XSeverityDebug = 12;
msg_sys_object_create = 1;
var
FTask: XTask;
begin
XLogS(FTask, XSeverityDebug, msg_sys_object_create, [1]);
end.