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

* fixed writeln(<enum>) for 64 bit systems, resolves #10033

Browse Source 
git-svn-id: trunk@10305 -
This commit is contained in:
florian 2008-02-11 21:05:08 +00:00
parent 1a2a4af773
commit f8c9052c21
3 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7935,6 +7935,7 @@ tests/webtbs/tw0976.pp svneol=native#text/plain
tests/webtbs/tw10002.pp svneol=native#text/plain
tests/webtbs/tw10009.pp svneol=native#text/plain
tests/webtbs/tw10013.pp svneol=native#text/plain
tests/webtbs/tw10033.pp svneol=native#text/plain
tests/webtbs/tw10072.pp svneol=native#text/plain
tests/webtbs/tw10203.pp svneol=native#text/plain
tests/webtbs/tw1021.pp svneol=native#text/plain

2
rtl/inc/text.inc
View File

@ -748,7 +748,7 @@ begin
dec(ordinal,minvalue);
end;
{Get the address of the string.}
p:=Pshortstring((PPpointer(ord2strindex)+1+ordinal)^);
p:=Pshortstring((PPpointer(ord2strindex+4)+ordinal)^);
if p=nil then
begin
inoutres:=107; {Invalid ordinal value for this enum.}

9
tests/webtbs/tw10033.pp Normal file
View File

@ -0,0 +1,9 @@
{$apptype console}
type Txxx = set of (one,two,three);
var x : txxx;
begin
writeln(low(x));
writeln(high(x));
end.