diff options
author | olivier <olivier@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2017-08-15 17:23:33 +0000 |
---|---|---|
committer | olivier <olivier@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2017-08-15 17:23:33 +0000 |
commit | 0b806144531cc78f6f2d7e0d2ceb4245cba1b67b (patch) | |
tree | 7c8202f06e4aa231c0306da3fe8d68f5acfd4e61 | |
parent | ee150d8d9dec5db80d055d746b82dd688072e468 (diff) | |
download | fpc-0b806144531cc78f6f2d7e0d2ceb4245cba1b67b.tar.gz |
* Improved output to help debugging.
git-svn-id: https://svn.freepascal.org/svn/fpc/branches/olivier@36920 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | uefi/rtl/uefi/sysheap.inc | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/uefi/rtl/uefi/sysheap.inc b/uefi/rtl/uefi/sysheap.inc index 20f67a043f..14d82cd93a 100644 --- a/uefi/rtl/uefi/sysheap.inc +++ b/uefi/rtl/uefi/sysheap.inc @@ -38,7 +38,7 @@ begin allocatedPointer); case status of - EFI_SUCCESS : sysTable.ConOut^.OutputString(sysTable.ConOut, 'Success' + #13#10); + EFI_SUCCESS : sysTable.ConOut^.OutputString(sysTable.ConOut, 'Success in SysOSAlloc...' + #13#10); EFI_OUT_OF_RESOURCES : sysTable.ConOut^.OutputString(sysTable.ConOut, 'OutOfResources' + #13#10); EFI_INVALID_PARAMETER : sysTable.ConOut^.OutputString(sysTable.ConOut, 'InvalidParameter' + #13#10); EFI_NOT_FOUND : sysTable.ConOut^.OutputString(sysTable.ConOut, 'NotFound' + #13#10); @@ -52,6 +52,7 @@ end; procedure SysOSFree(p: pointer; size: ptruint); begin + sysTable.ConOut^.OutputString(sysTable.ConOut, '... in sysOSFree...' + #13#10); // if heap isn't set, then nothing was allocated // if SysHeap <> 0 then // RtlFreeHeap(SysHeap, 0, p); |