add CreateFile_32 for older codegenerators

Win/PmCleanSystem.icl

@@ -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 {