diff options
author | paul <paul@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-09-01 01:50:53 +0000 |
---|---|---|
committer | paul <paul@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-09-01 01:50:53 +0000 |
commit | 3136a1ac47bb0b7d16d3ba60a08775ddfcf9344c (patch) | |
tree | e9ab1ab7464e5223476544597711592276c024e0 /compiler/fppu.pas | |
parent | b37d39f244046b3a010ff647ed9220dc7ead49e9 (diff) | |
download | fpc-3136a1ac47bb0b7d16d3ba60a08775ddfcf9344c.tar.gz |
compiler: pass both modulename and filename to tmodule.create. extract modulename from filename if modulename is not passed (probably fix an error with asm/obj filename appeared after the namespace branch merge).
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@18930 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'compiler/fppu.pas')
-rw-r--r-- | compiler/fppu.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/fppu.pas b/compiler/fppu.pas index 3c951bba34..d75bca19c9 100644 --- a/compiler/fppu.pas +++ b/compiler/fppu.pas @@ -54,7 +54,7 @@ interface crc_array2 : pointer; crc_size2 : longint; {$endif def Test_Double_checksum} - constructor create(LoadedFrom:TModule;const s:string;const fn:string;_is_unit:boolean); + constructor create(LoadedFrom:TModule;const amodulename,afilename:string;_is_unit:boolean); destructor destroy;override; procedure reset;override; function openppu:boolean; @@ -125,11 +125,11 @@ var TPPUMODULE ****************************************************************************} - constructor tppumodule.create(LoadedFrom:TModule;const s:string;const fn:string;_is_unit:boolean); + constructor tppumodule.create(LoadedFrom:TModule;const amodulename,afilename:string;_is_unit:boolean); begin - inherited create(LoadedFrom,s,_is_unit); + inherited create(LoadedFrom,amodulename,afilename,_is_unit); ppufile:=nil; - sourcefn:=stringdup(fn); + sourcefn:=stringdup(afilename); end; |