Issue 83. Changed provided by Alexey-T

pyscripter · pyscripter · commit 40f26b5d2921 · 2019-09-21T01:16:01.000+03:00
diff --git a/PythonForDelphi/Components/Sources/Core/MethodCallBack.pas b/PythonForDelphi/Components/Sources/Core/MethodCallBack.pas
@@ -181,7 +181,12 @@ procedure GetCodeMem(var ptr: PByte; size: integer);
 	{$ELSE}
     //page := GetMem(PageSize);
     page := mmap(Pointer($10000000), PageSize, PROT_NONE, MAP_PRIVATE or MAP_ANON, -1, 0);
-    mprotect(page, PageSize, PROT_READ or PROT_WRITE or PROT_EXEC);
+    if page=Pointer(-1) then //MMAP_FAILED result?
+    begin
+      ptr := nil;
+      exit;
+    end;
+    mprotect(page, PageSize, PROT_READ or PROT_WRITE or PROT_EXEC);
 	{$ENDIF}
     page^.next:=CodeMemPages;
     CodeMemPages:=page;
@@ -451,6 +456,7 @@ function  GetCallBack( self: TObject; method: Pointer;
        Inc(lCount,sizeof(c64jump));
 
     GetCodeMem(Q,lCount);
+    if Q=nil then exit(nil);
     P := Q;
 
     lSize := 0;
