artem3213212/FasmOnDelphi
1
0
Fork 0
Code Releases Activity

Some Fix

Browse Source
This commit is contained in:
Artem3213212
2018-03-19 18:32:42 +03:00
parent e9c9205fae
commit 3f96eac235
3 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
FPCTests/fpcunitproject1.lps
View File

@@ -8,6 +8,7 @@
<Unit0> <Unit0>
<Filename Value="fpcunitproject1.lpr"/> <Filename Value="fpcunitproject1.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<CursorPos Y="9"/> <CursorPos Y="9"/>
<UsageCount Value="23"/> <UsageCount Value="23"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@@ -25,7 +26,6 @@
<Unit2> <Unit2>
<Filename Value="..\Source\FasmOnDelphi.pas"/> <Filename Value="..\Source\FasmOnDelphi.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="3"/> <EditorIndex Value="3"/>
<TopLine Value="172"/> <TopLine Value="172"/>
<CursorPos X="25" Y="195"/> <CursorPos X="25" Y="195"/>

2
Fasm4Delphi

Submodule Fasm4Delphi updated: f41b4fa6da...afafa5af7f

10
Source/FasmOnDelphi.pas
View File

@@ -104,10 +104,6 @@ type
OutStr:string; OutStr:string;
Lines:array of TFasmLine; Lines:array of TFasmLine;
end; end;
TErrorNamePair=record
Name:string;
Code:TFasmError;
end;
const const
FasmPath='fasm'; FasmPath='fasm';
@@ -364,12 +360,13 @@ end
else else
begin begin
{$ENDIF} {$ENDIF}
s:=FasmTemp+GetTickCount64.ToString();
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
s:=FasmTemp+GetTickCount.ToString();
FileHandle:=CreateFile(PChar(s+'.in'),GENERIC_WRITE,0,nil,CREATE_ALWAYS,128,0); FileHandle:=CreateFile(PChar(s+'.in'),GENERIC_WRITE,0,nil,CREATE_ALWAYS,128,0);
WriteFile(FileHandle,PAnsiChar(Source)^,length(Source),nr,nil); WriteFile(FileHandle,PAnsiChar(Source)^,length(Source),nr,nil);
CloseHandle(FileHandle); CloseHandle(FileHandle);
{$ELSE} {$ELSE}
s:=FasmTemp+GetTickCount64.ToString();
AssignFile(f,PChar(s+'.in')); AssignFile(f,PChar(s+'.in'));
rewrite(f); rewrite(f);
write(f,Source); write(f,Source);
@@ -486,12 +483,13 @@ end
else else
begin begin
{$ENDIF} {$ENDIF}
s:=FasmTemp+GetTickCount64.ToString();
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
s:=FasmTemp+GetTickCount.ToString();
FileHandle:=CreateFile(PChar(s),GENERIC_WRITE,0,nil,CREATE_ALWAYS,128,0); FileHandle:=CreateFile(PChar(s),GENERIC_WRITE,0,nil,CREATE_ALWAYS,128,0);
WriteFile(FileHandle,PAnsiChar(Source)^,length(Source),nr,nil); WriteFile(FileHandle,PAnsiChar(Source)^,length(Source),nr,nil);
CloseHandle(FileHandle); CloseHandle(FileHandle);
{$ELSE} {$ELSE}
s:=FasmTemp+GetTickCount64.ToString();
AssignFile(f,PChar(s)); AssignFile(f,PChar(s));
rewrite(f); rewrite(f);
write(f,Source); write(f,Source);