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

* convert int64 properly to c-bools, resolves #12614

Browse Source 
git-svn-id: trunk@12120 -
This commit is contained in:
florian 2008-11-16 13:27:59 +00:00
parent d423812928
commit 706f8085f4
4 changed files with 31 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -8624,6 +8624,7 @@ tests/webtbs/tw1251b.pp svneol=native#text/plain
tests/webtbs/tw1255.pp svneol=native#text/plain tests/webtbs/tw1255.pp svneol=native#text/plain
tests/webtbs/tw12575.pp svneol=native#text/plain tests/webtbs/tw12575.pp svneol=native#text/plain
tests/webtbs/tw12597.pp svneol=native#text/plain tests/webtbs/tw12597.pp svneol=native#text/plain
tests/webtbs/tw12614.pp svneol=native#text/plain
tests/webtbs/tw1269.pp svneol=native#text/plain tests/webtbs/tw1269.pp svneol=native#text/plain
tests/webtbs/tw1275.pp svneol=native#text/plain tests/webtbs/tw1275.pp svneol=native#text/plain
tests/webtbs/tw1279.pp svneol=native#text/plain tests/webtbs/tw1279.pp svneol=native#text/plain

16
compiler/ppcarm.lpi
View File

@ -2,7 +2,7 @@
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Version Value="5"/> <Version Value="6"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/> <MainUnitHasUsesSectionForAllUnits Value="False"/>
@ -26,7 +26,7 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<Units Count="2"> <Units Count="4">
<Unit0> <Unit0>
<Filename Value="pp.pas"/> <Filename Value="pp.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
@ -37,10 +37,19 @@
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="aasmcpu"/> <UnitName Value="aasmcpu"/>
</Unit1> </Unit1>
<Unit2>
<Filename Value="arm\aoptcpu.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="aoptcpu"/>
</Unit2>
<Unit3>
<Filename Value="aopt.pas"/>
<IsPartOfProject Value="True"/>
</Unit3>
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="8"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Target> <Target>
<Filename Value="arm\pp"/> <Filename Value="arm\pp"/>
@ -52,7 +61,6 @@
</SearchPaths> </SearchPaths>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<D2Extensions Value="False"/>
<CStyleOperator Value="False"/> <CStyleOperator Value="False"/>
<AllowLabel Value="False"/> <AllowLabel Value="False"/>
<CPPInline Value="False"/> <CPPInline Value="False"/>

15
tests/webtbs/tw12614.pp Normal file
View File

@ -0,0 +1,15 @@
{$mode objfpc}
program testb;
Function IntRes : int64;
begin
Result:=3;
end;
Var
B : WordBool;
begin
B:=WordBool(IntRes);
end.