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

Use %X instead of %x for C hexadecimal constants as Free Pascal hexstr uses uppercase characters A to F for values 10 to 15

Browse Source 
git-svn-id: trunk@42007 -
This commit is contained in:
pierre 2019-05-06 10:17:10 +00:00
parent 79cbfe53a5
commit 1d9220d270
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/h2pas/h2paschk.pas
View File

@ -171,27 +171,27 @@ end;
procedure TH2PasCheckerCodeGen.HandleConstant(ConstantID: TIdentifier);
begin
HandleConstant(ConstantID,'qword','16','unsigned long long','%016llx');
HandleConstant(ConstantID,'qword','16','unsigned long long','%016llX');
end;
procedure TH2PasCheckerCodeGen.HandleConstantU8(ConstantID: TIdentifier);
begin
HandleConstant(ConstantID,'byte','2','unsigned char','%02x');
HandleConstant(ConstantID,'byte','2','unsigned char','%02X');
end;
procedure TH2PasCheckerCodeGen.HandleConstantU16(ConstantID: TIdentifier);
begin
HandleConstant(ConstantID,'word','4','unsigned short','%04x');
HandleConstant(ConstantID,'word','4','unsigned short','%04X');
end;
procedure TH2PasCheckerCodeGen.HandleConstantU32(ConstantID: TIdentifier);
begin
HandleConstant(ConstantID,'dword','8','unsigned int','%08x');
HandleConstant(ConstantID,'dword','8','unsigned int','%08X');
end;
procedure TH2PasCheckerCodeGen.HandleConstantU64(ConstantID: TIdentifier);
begin
HandleConstant(ConstantID,'qword','16','unsigned int','%016llx');
HandleConstant(ConstantID,'qword','16','unsigned int','%016llX');
end;
procedure TH2PasCheckerCodeGen.HandleSignedConstant(ConstantID: TIdentifier);