paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 03:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* disabled pic

Browse Source 
* mark eax as used in assembler block in main program

git-svn-id: trunk@32689 -
This commit is contained in:
Jonas Maebe 2015-12-20 20:56:13 +00:00
parent b4e857e9c4
commit 0df558af36
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/webtbs/tw29096.pp
View File

@ -10,6 +10,7 @@ program asm_bug;
{$CODEALIGN VARMAX=1}
{$CODEALIGN CONSTMIN=1}
{$CODEALIGN CONSTMAX=1}
{$PIC off}
{$ENDIF}
{$ALIGN 1}
@ -117,7 +118,7 @@ ASM
mov [c2] , 2
mov [c1] , 1
mov [c0] , 0
end;
end ['eax'];
writeln(c0:3,c1:3,c2:3,c3:3, ' must be:[0 1 2 3] glo'); //___
if (c0<>0) or
(c1<>1) or