Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
C
clean-ide
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
6
Issues
6
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
clean-and-itasks
clean-ide
Commits
900d5238
Commit
900d5238
authored
May 07, 2010
by
John van Groningen
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
add CreateFile_32 for older codegenerators
parent
b74d50f3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
1 deletion
+9
-1
Win/PmCleanSystem.icl
Win/PmCleanSystem.icl
+9
-1
No files found.
Win/PmCleanSystem.icl
View file @
900d5238
...
...
@@ -1011,7 +1011,9 @@ create_inheritable_file file_name os
#
security_attributes
=
{
createArray
SECURITY_ATTRIBUTES_size_int
0
&
[
SECURITY_ATTRIBUTES_nLength_int_offset
]
=
SECURITY_ATTRIBUTES_size_bytes
,
[
SECURITY_ATTRIBUTES_bInheritHandle_int_offset
]
=
1
};
=
CreateFile
file_name
GENERIC_WRITE
0
security_attributes
CREATE_ALWAYS
FILE_ATTRIBUTE_NORMAL
0
os
;
=
IF_INT_64_OR_32
(
CreateFile_32
file_name
GENERIC_WRITE
0
security_attributes
CREATE_ALWAYS
FILE_ATTRIBUTE_NORMAL
0
os
)
(
CreateFile
file_name
GENERIC_WRITE
0
security_attributes
CREATE_ALWAYS
FILE_ATTRIBUTE_NORMAL
0
os
);
create_process
::
!*{#
Char
}
!{#
Char
}
!
HANDLE
!*
OSToolbox
->
(!
Bool
,!{#
Int
},!*
OSToolbox
)
create_process
command_line
current_directory
std_error_handle
os
...
...
@@ -1026,6 +1028,12 @@ create_process command_line current_directory std_error_handle os
(
CreateProcess_32
0
command_line
0
0
True
DETACHED_PROCESS
0
current_directory
startup_info
process_information
os
)
=
(
ok
,
process_information
,
os
)
CreateFile_32
::
!{#
Char
}
!
Int
!
Int
!{#
Int
}
!
Int
!
Int
!
HANDLE
!*
OSToolbox
->
(!
HANDLE
,!*
OSToolbox
);
CreateFile_32
fileName
desiredAccess
shareMode
lpSecurityAttributes
creationDisposition
flagsAndAttributes
templateFile
os
=
code {
ccall
CreateFileA@28
"PsIIAIII:I:I"
}
CreateFile
::
!{#
Char
}
!
Int
!
Int
!{#
Int
}
!
Int
!
Int
!
HANDLE
!*
OSToolbox
->
(!
HANDLE
,!*
OSToolbox
);
CreateFile
fileName
desiredAccess
shareMode
lpSecurityAttributes
creationDisposition
flagsAndAttributes
templateFile
os
=
code {
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment