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

* fixed 64 bit compilation

Browse Source 
git-svn-id: trunk@7396 -
This commit is contained in:
Jonas Maebe 2007-05-19 17:24:11 +00:00
parent a0b57eddb5
commit f50eb8c9f6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw8177.pp
View File

@ -762,7 +762,7 @@ begin
c:=#0; c:=#0;
// make sure the statement after this does not write to a read-only location // make sure the statement after this does not write to a read-only location
GlobalStrValidate28 := c; GlobalStrValidate28 := c;
PInteger(Integer(GlobalStrValidate28)-4)^ := 0; //Set Length to 0 PSizeInt(Pointer(GlobalStrValidate28)-sizeof(SizeInt))^ := 0; //Set Length to 0
try try
StrToInt(GlobalStrValidate28); StrToInt(GlobalStrValidate28);
ErrorTrap(VALIDATENO, GlobalStrValidate28); ErrorTrap(VALIDATENO, GlobalStrValidate28);