Re^3: Windows Non-Paged Pool Memory Allocation

Okay, but you are going to be out of luck. According to the docs, both those apis need to be called from code running at an IRQ level:

Callers of ExAllocatePoolWithQuotaTag must be running at IRQL <= APC_L
+EVEL.
Callers of AllocateCommonBuffer must be running at IRQL = PASSIVE_LEVE
+L.
[download]

If you knew (or search) to locate the dll they are exported from, the you could attempt to call them using Win32::API, but unless you know a way to cause your Perl script to be called by the kernel as an IRQ handler, it isn't going to to work.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^3: Windows Non-Paged Pool Memory Allocation Download Code

Replies are listed 'Best First'.
Re^4: Windows Non-Paged Pool Memory Allocation by Anonymous Monk on Oct 31, 2006 at 14:29 UTC
Actually, it isn't that difficult. For example the code here will consume from the NP Pool until it faults for ($i=1; $i<=7000; $i++) { for ($k=1; $k<=1000; $k++) { $hash->{$k}->{"a $i b $j"}="$j fish $i"; } print "$j $i $k\n"; } I just want to see if there is a way to do it directly instead of indirectly	[reply]
Re^5: Windows Non-Paged Pool Memory Allocation by BrowserUk (Patriarch) on Oct 31, 2006 at 15:05 UTC
Hmm. Rather harder than you think apparently. All that code does is cause a large amount of ram to be allocated to the process--and in an unnecessarially convoluted way. If you want to grab a large chunk of ram, a simple `@a = 1..1e8;` does fine. The only problem with that is you are not sure exactly how much you are allocating. To control exactly how much you cause to be allocated, the simplest way I've found is: `c:\test>p1 Perl> open RAM, '+<', \$ram; seek RAM, 1e9, 0; print RAM 'X'; print length $ram;; 1000000002 Perl>` [download] which will allocate 956.1 MB of uninitialise ram. However, if you look in the Task Manager in the "Kernel memory" box on the Performance tab, you'll see that the Nonpaged memory allocation is well under that number (just 14 MB on my system currently, with the script above still running). Memory allocated by Perl is not allocated from the non-paged memory pool. Non-paged memory is a scarce resource that is usually allocated in small numbers of single pages by device drivers. Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal? "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l] [select]